несколько максимальных значений в матрице

var i,j,n,k,l: integer;
    A:array[1..10, 1..10] of integer;
    B:array[1..5] of integer;
    maxAij: integer;


{-----------------------------------------}

function Amax(max, s4et3:integer):integer;

var s4et, s4et1, s4et2: integer;
begin

for s4et:=1 to s4et3 DO
begin
for s4et1:=1 to 10 do
 begin
   for s4et2:=1 to 10 do
     begin
       if ((k=s4et1) AND (l=s4et2)) then continue;

       if max<(A[s4et1,s4et2]) then
     begin
       max:=A[s4et1,s4et2];
       k:=i;
       l:=j;
     end;
     end;
 end;
end;
B[s4et3]:=max;
end;
{--------------------------------}

begin {main}

for i:=1 to 10 do
 begin
  for j:=1 to 10 do A[i,j]:=4430-2*Random(4430);
 end;
B[1]:=Amax(A[1,1], 1);
for n:=2 to 5 do
 begin
   B[n]:=Amax(B[n-1], n);
   write(B[n],' ');
 end;
for i:=1 to 5 do write(B[n],' ');
Readln;
end.