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

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.