Найти наибольший и наименьший элементы матрицы и поменять их местами.

max:=R[1,1];
for k:=1 to 20 do
  for n:=1 to 10 do
    if R[K,N]>max then max:=R[k,n];

For k:=1 to 20 do begin
   for j:=1 to 20 do
     writeln(R[n,k],' ');
  writeln;
 end;

min:=R[1,1];
for k:=1 to 20 do
  for n:=1 to 10 do
    if R[K,N]<min then min:=R[k,n];

const
 maxi=30;
 
var
 r:array[1..20,1..20] of integer;
 i,j,k,n,x1,y1,x,y,temp,min,max:integer;
 
begin
randomize;
k:=random(20);n:=random(10);
writeln('amount of strings: ', k);
writeln('amount os columns: ', n);
writeln;
 
for i:=1 to k do begin
  for j:=1 to n do
   begin
     r[i,j]:=random(maxi);
     write(r[i,j]:5);
   end;
   writeln;
 end;
 
writeln('New array');
 
min:=r[1,1];
for i:=1 to k do
  for j:=1 to n do
   if r[i,j]<min then begin x:=i;y:=j;min:=r[i,j];end;
 
max:=r[1,1];
for i:=1 to k do
  for j:=1 to n do
     if r[i,j]>max then begin max:=r[i,j];x1:=i;y1:=j;end;
 
temp:=r[x,y];
r[x,y]:=r[x1,y1];
r[x1,y1]:=temp;
 
for i:=1 to k do
  begin
   for j:=1 to n do
     write(r[i,j]:5);
  writeln;
  end;
 
Writeln('Min= ', min, '. Max = ', max);
 
readln;
 
end.