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);
  writeln
end.

Тестовое решение:

Считываемые данные
   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