Всем Привет!1.    В текстовом файле хранятся квадратные целочисленные матрицы
порядка n. Преобразовать
файл, удалив из каждой матрицы элементы побочной диагонали.

const  n = 3;type  M = array[1..3, 1..3] of integer;var  i, j: integer;  f: Text;  a, b: M;  s:string;begin  Assign(f, 'input.dat');  Reset(f);  writeln('Считываемые данные');  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;  for i := 1 to n do  begin    for j := 1 to n do    begin      read(f, b[i, j]);      write(b[i, j]:4)    end;    writeln  end;  Close(f);  Rewrite(f);  for i := 1 to n do    for j := 1 to n do      if j <> n + 1 - i then        write(f, a[i, j], ' ');  writeln(f);  for i := 1 to n do    for j := 1 to n do      if j <> n + 1 - i then        write(f, b[i, j], ' ');  writeln(f);  Close(f);  Reset(f);  writeln('Данные, перезаписанные в файл');  while not eof(f) do    begin    readln(f,s);    writeln(s)    end;  Close(f);  writelnend.Тестовое решение:Считываемые данные   2   3   7   4   3   1   8   9   6  14   3  12   5  -2   8   6   0  13Данные, перезаписанные в файл2 3 4 1 9 6 14 3 5 8 0 13