Найти минимальное значение главной диагонали и максимальное значение вспомогательной диагонали

const n=5;
var a:array[1..n,1..n]of integer;
    i,j,mn,mx,imn,imx,x:integer;
begin
writeln('Введите элементы матрицы');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
writeln('Исходная матрица');
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
mn:=a[1,1];
mx:=a[1,1];
imn:=1;
imx:=1;
for i:=2 to n do
 begin
  if a[i,i]<a[imn,imn] then
   begin
    mn:=a[i,i];
    imn:=i;
   end;
  if a[i,n-i+1]>a[imx,n-imx+1] then
   begin
    mx:=a[i,n-i+1];
    imx:=i;
   end;
 end;
writeln('Минимальный  элемент на главной  диагонали=',mn);
writeln('Максимальный элемент на побочной диагонали=',mx);
if mn<>mx then
 begin
  writeln('Они разные');//если они разные
  x:=a[imn,imn];
  a[imn,imn]:=a[imx,n-imx+1];//меняем их местами
  a[imx,n-imx+1]:=x;
 end
else
 begin
  writeln('Они одинаковые');//если одинаковые
  for i:=1 to n do
   begin
    a[i,i]:=mn;//заменяем элементы диагоналей на него
    a[i,n-i+1]:=mn;
   end;
 end;
writeln('Измененная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
 
end.