Найти произведение главной диагонали и суммы побочной диагонали матрицы

uses
  crt;
const
  n=4;
var
  i,j,mult,sum,k,l: integer;
  m: array [1..n,1..n] of integer;
begin
  clrscr;
  randomize;
  for i:= 1 to n do
  begin
    for j:= 1 to n do
    begin
      m[i,j]:=random(9)+1;
      write(m[i,j],' ');
    end;
    writeln;
  end;
  mult:=1;
  for i:= 1 to n do
    mult:=mult*m[i,i];
  k:=1;
  l:=n;
  i:=1;
  sum:=0;
  while i<=n do
  begin
    sum:=sum+m[l,k];
    inc(k);
    dec(l);
    inc(i);
  end;
  writeln('Mult = ',mult);
  writeln('Summa = ',sum);
  readkey;
end.

uses crt;
type matrix = array [1..11,1..11] of integer;
var
   A:matrix;
   i,j,m,n,sum1,sum2,sub:integer;
   
   begin
        clrscr;
        write ('Введите число строк: '); readln(m);
        write ('Введите число столбцов: '); readln(n);
        writeln;
        if m <> n then
        writeln('Ошибка! ')
        else
         begin
        for i:=1 to n do
            for j:=1 to m do begin
                write('A[',i,',',j,'] = ');
                readln (A[i,j]);
            end;
        clrscr;
        writeln ('Исходная матрица: ');
 for i:=1 to n do
            for j:=1 to n do begin
                writeln ('A[',i,',',j,'] = ',A[i,j]);
            end;
 for i:=1 to n do
                 sum1:=sum1+A[i,i];
 
       j:=n;
       for i:=1 to n do begin
                sum2:=sum2+A[i,j];
                dec (j);
       end;
writeln ('Сумма элементов главной диагонали: ',sum1);
       writeln ('Сумма элементов побочной диагонали: ',sum2);
sum:=sum1*sym2;
writeln('proizvedenee ravno',sum);
readkey;       
end;end.