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

var A:array[1..10000,1..10000] of integer;
i,j,k,s,n,m,s1,Imax,Kmax,Imin,Kmin: integer;max,min:integer;
begin
write('n=');readln(n);
cls;s:=0;s1:=0;randomize;
for i:=1 to n do
for k:=1 to n do
begin
a[i,k]:=random(7)+2;
end;    
 for i:=1 to n do
begin
for k:=1 to n do
write(A[i,k]:5);
writeLn;
end;
writeln;
if i+k=n then 
     begin
     for i:=1 to n do
     for k:=1 to n do
begin
if a[i,k]>max then begin max:=a[i,k];Imax:=i;Kmax:=k; end;
if a[i,k]<min then begin min:=a[i,k];Imin:=i;Kmin:=k; end;
end;
end;
  for i:=1 to n do
for k:=1 to n do
begin
if i=k then s:=s+a[i,k];
if i>k then s1:=s1+a[i,k];
end;
if s>s1 then a[Imax,Kmax]:=2*a[Imax,Kmax]  else a[Imin,Kmin]:=a[Imin,Kmin]*a[Imin,Kmin];
begin
 for i:=1 to n do
begin
for k:=1 to n do
write(A[i,k]:5);
writeLn;
end;
end;
end.

uses crt;
const nmax=8; {чтобы все вошло на экран}
var a:array[1..nmax,1..nmax] of integer;
    n,i,k,s1,s2,imax,imin: integer;
begin
clrscr;
randomize;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
s1:=0;
s2:=0;
writeln('Исходный массив');
for i:=1 to n do
 begin
  for k:=1 to n do
   begin
    a[i,k]:=random(7)+2;
    write(a[i,k]:3);
    if k>i then s1:=s1+a[i,k];
    if k<i then s2:=s2+a[i,k];
    if i=1 then
     begin
      imin:=1;
      imax:=1
     end
    else if a[i,n-i+1]<a[imin,n-imin+1] then imin:=i
    else if a[i,n-i+1]>a[imax,n-imax+1] then imax:=i
   end;
  writeln
 end;
writeln('Сумма над главной диагональю=',s1);
writeln('Сумма под главной диагональю=',s2);
writeln('Минимальный элемент побочной диагонали ','[',imin,',',n-imin+1,']=',a[imin,n-imin+1]);
writeln('Максимальный элемент побочной диагонали ','[',imax,',',n-imax+1,']=',a[imax,n-imax+1]);
if s1>s2 then
 begin
  writeln('Сумма над главной диагональю больше');
  writeln('Максимальный элемент побочной диагонали умножаем на 2');
  a[imax,n-imax+1]:=a[imax,n-imax+1]*2
 end
else
 begin
  writeln('Сумма под главной диагональю не меньше');
  writeln('Минимальный элемент побочной диагонали возводим в квадрат');
  a[imin,n-imin+1]:=sqr(a[imin,n-imin+1])
 end;
writeln('Измененный массив');
for i:=1 to n do
 begin
  for k:=1 to n do
  write(a[i,k]:3);
  writeln
 end;
readln
end.