Исправить код, чтобы программа работала при всех возможных вариантах заполнения массива

 
 
USES crt;
 
CONST n = 3;
      m = 3;
TYPE
      matrix = array [1..n,1..m] of byte;
 
VAR i,j,k,r,min,max : byte;
    a : matrix;
    
BEGIN
 
for i := 1 to n do
  begin
    for j := 1 to m do
      begin
      a[i,j] := random(30);
      write(a[i,j],' ');
      end;
    writeln;
  end;
min := a[1,1];
for i := 1 to n do
  begin
    for j := 1 to m do
      begin
      if (min > a[i,j]) then min := a[i,j]
      end;
  end;
writeln;
max := a[1,1];
for i := 1 to n do
  begin
    for j := 1 to m do
      begin
      if (max < a[i,j]) then max := a[i,j]
      end;
  end;
writeln(min,' ',max);
writeln;
for i := 1 to n do
 begin
   for j := 1 to m do
   begin
     if (a[i,j] = max) then
     begin;
      a[i,j] := min;
      i := k;
      r := j;
      break;
     end;
     end;
     end;
for i := 1 to n do
 begin
   for j := 1 to m do
   begin
 
     if (a[i,j] = min) and (i <> k) and (j <> r) then
     begin
     a[i,j] := max;
     break;
     break;
     end;
     end;
     end;
 
 
for i := 1 to n do
 begin
  for j := 1 to m do
   begin
   write(a[i,j],' ');
   end;
  writeln;
 end;
 
 
 
 
END.

const n=3;
var a:array [1..n,1..n] of integer;
i,j,s,k,m,l,min,max:integer;
begin
for i := 1 to n do begin
for j := 1 to n do begin
a[i,j] := random(30);
write(a[i,j],' ');
end;
writeln;
end;
writeln;
min:=a[1,1];
for i := 1 to n do
for j := 1 to n do begin
if a[i,j]> max then begin
max:=a[i,j];
s:=i;
k:=j;
end;
if a[i,j]<min then begin
min:=a[i,j];
m:=i;
l:=j;
end;
end;
a[s,k]:=min;
a[m,l]:=max;
for i := 1 to n do begin
for j := 1 to n do begin
write(a[i,j],' ');
end;
writeln;
end;
writeln;
end.