Считывание данных из файла и определение суммы модулей элементов <0, которые размещаются на побочной диагонали. Массив (14х14)- Pascal(Паскаль)

type
  masiv = array [1 .. 14, 1 .. 14] of integer;

const
  n = 14;

var
  myfile: text;
  a: masiv;
  i, j, s: integer;
  b: array [1 .. 14] of integer;

begin
  assign(myfile, 'c:\file.txt');
  reset(myfile);
  for i := 1 to n do
  begin
    for j := 1 to n do
      read(myfile, a[i, j]);
  end;
  writeln('matrica z failu');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:5);
    writeln;
  end;
  writeln;
  writeln('pobichna diagonal');
  for i := 1 to n do
  begin
    write(a[i, n - i + 1], ' ');
  end;
  writeln;

  begin
    FOR i := 1 to n DO
      b[i] := a[i, n - i + 1];
  end;
  s := 0;
  for i := 1 to n DO
    if b[i] < 0 then
      s := s + abs(b[i]);
  writeln(s);

end.