Двумерный массив

program zamena;
var 
A:array [1..5,1..5]of integer;
i,j,max,min:integer;
begin
max:=A[1,1];
min:=A[1,1];
for i:=1 to 5 do
begin
  for j:=1 to 5 do
  begin
     if A[i,j]<min then min:=A[i,j];
     if A[i,j]>max then ma[:=A[i,j];
  end;  
end;
end;

program zamena;
var 
A:array [1..5,1..5]of integer;
i,j,max,min,x,y,x1,y1,c:integer;
begin
max:=A[1,1];
min:=A[1,1];
x:=1;
y:=1;
x1:=1;
y1:=1
for i:=1 to 5 do
begin
  for j:=1 to 5 do
  begin
     if A[i,j]<min then
        begin
          min:=A[i,j];
          x:=i;
          y:=j;
        end;
     if A[i,j]>max then 
      begin
          max:=A[i,j];
          x1:=i;
          y1:=j;
        end;
  end;  
end;
  c:=A[x,y];
  A[x,y]:=A[x1,y1];
  A[x1,y1]:=c;
end;

program zamena;
var 
A:array [1..5,1..5]of integer;
i,j,t,maxI,maxJ,minI,minJ:integer;
begin
maxI:=1;
maxJ:=1;
minI:=1;
minJ:=1;
for i:=1 to 5 do
begin
  for j:=1 to 5 do
  begin
     if A[i,j]>A[maxI,maxJ] then begin maxI:=i; maxJ:=j; end;
     if A[i,j]<A[minI,minJ] then begin minI:=i; minJ:=j; end;
  end;  
end;
t:=A[maxI,maxJ];
A[maxI,maxJ]:=A[minI,minJ];
A[minI,minJ]:=t;
end;