Заменить элементы главной диагонали матрицы на максимальный элемент побочной диагонали на минимальный элемент

Program omega9;
uses crt;
var f:text;
    n,i,j:byte;
    a:array[1..20,1..20] of integer;
    min,max:integer;{çíà÷åíèå ìàêñ ìèí}
    imin,imax,jmin,jmax:byte;{èíäåêñû ñòðîê ñ ìèí è ìàêñ}
begin
clrscr;
assign(f,'file.txt');
reset(f);
read(f,n);{÷èòàåì ðàçìåð}
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(f,a[i,j]);{÷èòàåì ìàòðèöó}
    write(a[i,j]:4);{âûâîäèì íà ýêðàí}
   end;
  writeln;
 end;
min:=a[1,1];imin:=1;{ìèíèìàëüíûé ïåðâûé}
max:=a[1,1];imax:=1;{ìàêñèìàëüíûé ïåðâûé}
for i:=1 to n do
 begin
  for j:=1 to n do
   if (a[i,j])<min then {ìèíèìóì â ìàòðèöå}
    begin
     min:=a[i,j];{ìèíèìóì }
     imin:=i;{åãî ñòðîêà}
     jmin:=j;
    end;
   if (a[i,j])>max then {ìàêñ}
    begin
     max:=a[i,j];
     imax:=i;
     jmax:=j;
    end;
     a[i,i]:=max;
   a[i,n-i+1]:=min;
 end;
writeln('Ìèí.   a[',imin,',',jmin,']=',min);
writeln('Ìàêñ.  a[',imax,',',jmax,']=',max);
for i:=1 to n do
 begin
  for j:=1 to n do
   write (a[i,j]:4);
   WRITELN;
 end;
 close(f);
end.

Program omega9;
var f:text;
    n,i,j:byte;
    a:array[1..20,1..20] of integer;
    min,max:integer;{значение макс мин}
    imin,imax,jmin,jmax:byte;{индексы строк с мин и макс}
begin
n:=9;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(99)+1;
    write(a[i,j]:4);{выводим на экран}
   end;
  writeln;
 end;
min:=a[1,1];imin:=1;{минимальный первый}
max:=a[1,1];imax:=1;{максимальный первый}
for i:=1 to n do
 begin
  for j:=1 to n do
   if (a[i,j])<min then {минимум в матрице}
    begin
     min:=a[i,j];{минимум }
     imin:=i;{его строка}
     jmin:=j;
    end;
   if (a[i,j])>max then {макс}
    begin
     max:=a[i,j];
     imax:=i;
     jmax:=j;
    end;
 end;
 
 for i:=1 to n do
 begin
   a[i,i]:=max;
   a[i,n-i+1]:=min;
 end;
 
writeln('Мин.   a[',imin,',',jmin,']=',min);
writeln('Макс.  a[',imax,',',jmax,']=',max);
for i:=1 to n do
 begin
  for j:=1 to n do
   write (a[i,j]:4);
   WRITELN;
 end;
end.