Определить суммы элементов над главной диагональю и под ней и которая из сумм больше

const
  n_max = 100;
 
var
  a: array [1..n_max, 1..n_max] of integer;
  i, j, n, knad, kpod: integer;
  srnad, srpod: real;
  f: text;
 
begin
  srnad := 0;
  srpod := 0;
  knad := 0;
  kpod := 0;
  Writeln('Матрица A: ');
  assign(f, 'input.txt');
  reset(f);
  readln(f, n);
  for i := 1 to N do         
  begin
    for j := 1 to N do
    begin
      read(f, a[i, j]);
      if i < j then 
      begin
        srnad := srnad + a[i, j];
        inc(knad);
      end;
      if i > j then 
      begin
        srpod := srpod + a[i, j];
        inc(kpod);
      end;
      write(a[i, j]:5);
    end;
    writeln;
  end;      
  close(f);
  writeln('Сумма элементов массива выше главной диагонали: ', srnad);
  writeln('Сумма элементов массива ниже главной диагонали: ', srpod);
  if srnad > srpod then
    writeln('Сумма элементов массива выше главной диагонали больше ')
  else
  if srnad < srpod then
    writeln('Сумма элементов массива ниже главной диагонали больше ')
  else
    writeln('Суммы равны');
end.