Файл: Определить, одинаковое ли кол-во положительных и отрицательное элементов размещены над и под главной диагональю.

program calc_elem;
const n=10;
var
  f:file of integer;
  a:array[1..n,1..n] of integer;
  i,j,aa,ab,ac,ad:integer;
begin
  AssignFile(f,'f');
  reset(f);
  writeln('Matrix:');
  for i:=1 to n do begin
    for j:=1 to n do begin
      read(f,a[i,j]);
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  CloseFile(f);
  //под главной диагональю
  aa:=0;ab:=0;
  for i:=1 to n do
    for j:=1 to i-1 do
      if a[i,j]<0 then aa:=aa+1 else ab:=ab+1;
  //над главной диагональю
  ac:=0;ad:=0;
    for i:=1 to n do
      for j:=i+1 to n do
        if a[i,j]<0 then ac:=ac+1 else ad:=ad+1;
     writeln('Positive elements over the main diagonal:',ad);
     writeln('Positive elements under the main diagonal:',ab);
     writeln('Negative elements over the main diagonal:',ac);
     writeln('Negative elements under the main diagonal:',aa);
  readln;
end.

program gen_matrix_into_file_f;
const n=10;
var
  i,j:integer;
  f:file of integer;
begin
  randomize;
  AssignFile(f,'f');
  rewrite(f);
  for i:=1 to n do
    for j:=1 to n do
      write(f,random(101)-50);
  CloseFile(f);
end.