Блок схема:Составьте программу нахождения максимального их чисел, встречающихся в заданном двухмерном мас

[sa-dmit]

Помогите пожалуйста построить блок схему к задачи:
Составьте программу нахождения максимального их чисел, встречающихся в заданном двухмерном массиве более одного раза.

Код к ней:
program MaxChisl;
var
a:array[1..20,1..20] of integer;
x,y,m,xx,yy:integer;
el,max:real;
k:boolean;
begin
for x:=1 to 3 do
begin
for y:=1 to 3 do
begin
Write('a[',x,',',y,']=');
ReadLn(a[x,y]);
end;
writeln;
end;
WriteLn;
for x:=1 to 3 do
for y:=1 to 3 do
begin
if y<>3 then
Write('a[',x,',',y,']=',a[x,y],' ')
else
WriteLn('a[',x,',',y,']=',a[x,y]);
end;
WriteLn;
m:=1;
k:=false;
max:=0;
for x:=1 to 3 do
for y:=1 to 3 do
begin
el:=a[x,y];
for xx:=1 to 3 do
for yy:=1 to 3 do
begin
if (el=a[xx,yy]) and (m=1) then
begin
if (x<>xx) or (y<>yy) then
begin
max:=el;
k:=true;
m:=2;
end;
end
else
if (el=a[xx,yy])and (el>max) then
if (x<>xx) or (y<>yy) then
begin
max:=el;
end;
end;
end;
if k=true then
WriteLn('MAX=',max)
else
WriteLn('Максимального числа встречающегося в массиве более одного раза нет!!!!');
ReadLn;
end.

[ROMA2PVT]

Добавляй после начала блок описания переменных.

[sa-dmit]

Спасибо огромное...