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

program basic_side;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
  const max=10;//макс. размерность квадр. матрицы
  var M:array [1..max,1..max] of Integer;
      n:byte;
 
Procedure Input(var n:byte);
Begin
write('Укажите размерность квадратной матрицы: ');readln(n);
End;
 
Procedure SetMatrix(n:byte);//заполнение матрицы случайными числами
var i,j:byte;
    r0,r:Integer;
Begin
randomize;
for i:=1 to n do
for j:=1 to n do
begin
     r:=random(Max);
     r0:=random(2);
     if(r0=0) then r:=-r;//генерация отрицательных эл-тов
     M[i,j]:=r;
end;
End;
 
Procedure View(n:byte);//просмотр матрицы
var i,j:byte;
Begin
for i:=1 to n do
begin
for j:=1 to n do write(M[i,j],' ');
writeln;
end;
End;
 
Procedure Calc(n:byte);//анализ по условию задания
var i,j,k:byte;
    basic,side:array [1..10] of integer;
    flag:Boolean;
Begin
k:=0;
for i:=1 to n do
for j:=1 to n do
if(i=j) then begin inc(k);Basic[k]:=M[i,j];end;//формирование массива эл-тов главной диагонали
 
k:=0;
for i:=n downto 1 do
for j:=1 to n do
if((i+j)=(n+1)) then begin inc(k);Side[k]:=M[i,j];end;//формирование массива эл-тов побочной диагонали
 
writeln('-------------------------------------------------');
Write('Основная диагональ: ');
for i:=1 to n do write(Basic[i],' ');
writeln;
write('Второстепенная диагональ: ');
for i:=1 to n do write(Side[i],' ');
 
writeln;
flag:=false;//нет столбцов, удовлетворяющих условию задания
writeln('Результат:');
for i:=1 to n do
begin
if(Basic[i]>Side[i]) then
begin write('Номер столбца по условию задачи:',i);flag:=true;break;end;
end;
 
 
if(flag=false) then write('нет столбцов, удовлетворяющие условию задания.');
End;
 
 
begin
  try
Input(n);
SetMatrix(n);
View(n);
Calc(n);
readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  end.

program lab;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type BaseDyn = array of array of integer;
var A:BaseDyn;
    m,n,ch:integer;
 
procedure KeyboardEnter (var n: integer; var A: BaseDyn);
      var
      i,j: integer;
begin
  readln(n);
  SetLength(A,n,n);
  writeln('Введенный массив.');
  for i:=0 to n-1 do
    begin
      for j:=0 to n-1 do
        read(A[i,j]);
        Writeln;
    end;
  writeln;
end;
 
procedure RandomEnter (var n: integer; var A: BaseDyn);
      var
      i,j: integer;
        begin
        readln(n);
        SetLength(A,n,n);
        writeln('Введенный массив.');
            randomize;
            for i:=0 to n-1 do
              begin
              for j:=0 to n-1 do
                begin
                  A[i,j]:=random(50);
                  write(A[i,j], ' ');
                end;
              Writeln;
              end;
         writeln;
        end;
 
procedure colcheck (n: Integer; var A: BaseDyn);
  var i,j,k,l: Integer;
      B: array [1..100] of Integer;
  begin
    for i:=0 to n-1 do
      for j:=0 to n-1 do
        begin
          if (i=j) and (A[j,i]>A[n-j-1,j]) then
          begin
            k:=k+1;
            B[k]:=j;
          end;
        end;
    Write('Столбец, где элемент главной диагонали больше элемента побочной диагонали');
    if k=0 then Writeln(' отсутствует.') else
    for l:=1 to k do
      begin
        Writeln(' ');
        for i:=0 to n-1 do
        Writeln(A[i,B[l]]);
      end;    
  end;
 
begin
  writeln('1 - вручную, 2 - случайно. ');
  readln(ch);
  if ch=1 then KeyboardEnter(n,A) else
        if ch=2 then RandomEnter(n,A);
  colcheck(n,A);
  Writeln;
  Readln;
  Readln;
end.