Помогите!!!до зачета 3 дня!!!Пожалуйста

[kirillbobo]

Составьте программу вычисления суммы элементов двухмерного массива A(N,M), встречающихся в этом массиве ровно один раз

[NSvirus]

Держи:

uses crt;
const
 dlina=2;
var
  mas:array[1..dlina,1..dlina] of integer;
	i,j,e,tmp,sum,prom:integer;
begin
clrscr;
randomize;
for i:=1 to dlina do
 for j:=1 to dlina do
  mas[i,j]:=random(20);
for e:=0 to 20 do begin
 for i:=1 to dlina do
   for j:=1 to dlina do
     begin
      if mas[i,j]=e then tmp:=tmp+1;
      if ((i=dlina)and(j=dlina)and(tmp=1)) then sum:=sum+e;
     end;
     tmp:=0;
end;
writeln('Massiv: ');
for i:=1 to dlina do
begin
 for j:=1 to dlina do
  write(mas[i,j],'  ');
 writeln;
end;
writeln('summa=',sum);
readln;
end.

[kirillbobo]

огромное при огромное спосибо выручил меня