Поменять местами первый максимальный и последний минимальный элементы матрицы

const
 n = 5;
type
 TArr = array[1..n, 1..n] of integer;
var
 arr: TArr;
 i, j: integer;
 
procedure Zamena(arr: TArr);
var
 i, j, buf, i_min, i_max, j_min, j_max: integer;
begin
 writeln;
 i_min:=1; i_max:=1; j_min:=1; j_max:=1;
  for i:=1 to n do
   for j:=1 to n do
    if arr[i, j] > arr[i_max, j_max] then
     begin
      i_max:=i;
      j_max:=j;
     end
    else if arr[i, j] < arr[i_min, j_min] then
     begin
      i_min:=i;
      j_min:=j;
     end;
 buf:=arr[i_min, j_min];
 arr[i_min, j_min]:=arr[i_max, j_max];
 arr[i_max, j_max]:=buf;
  for i:=1 to n do
   begin
     for j:=1 to n do
      write(arr[i, j]:4);
    writeln;
   end;
end;
 
begin
 randomize;
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      arr[i, j]:=random(20)+1;
      write(arr[i, j]:4);
     end;
    writeln;
   end;
 Zamena(arr);
end.