Создать текстовый файл, в который построчно записать квадратный массив

Uses CRT;
Const n=5;
Var i, j, v_min, v_max, row, col, count, temp, k: Integer;
    a: Array [1..n, 1..n] of Integer;
    f: Text;
Begin
  ClrScr;
  Randomize;
  WriteLn ('Vvedite diapazon sluchainix chisel');
  Write ('v_min=');
  ReadLn (v_min);
  Write ('v_max=');
  ReadLn (v_max);
  Assign (f, 'C:\f.txt');
  ReWrite (f);
  For i:= 1 to n do
    Begin
      For j:= 1 to n do
        Begin
          a[i,j]:= Random (v_max - v_min + 1) + v_min;
          Write (f, a[i,j]:5);
        End;
      WriteLn;
    End;
  WriteLn;
  Close (f);
  ReSet (f);
  count:= 0;
  While (Not (EOF (f))) Do
    Begin
      Read (f, temp);
      count:= count + 1;
    End;
  ReSet (f);
  col:= 0;
  While (Not (EOLn (f))) Do
    Begin
      Read (f, temp);
      col:= col + 1;
    End;
  row:= count div col;
  WriteLn;
  WriteLn ('strok=', row, '   stolbcov=', col);
  WriteLn;
  WriteLn ('Prochitaanii massiv:');
  ReSet (f);
  For i:= 1 To row Do
    Begin
      For j:= 1 To col Do
        Begin
          Read (f, temp);
          Write (temp:5);
        End;
      WriteLn;
    End;
  Close (f);
  WriteLn;
  Write ('Diagonali, parallelnie glavnoy:');
  Append (f);
  WriteLn;
  For i:= row Downto 1 Do
    Begin
      k:= 1;
      For j:= i To col Do
        Begin
          Write (f, a[k,j]:5);
          Write (a[k,j]:5);
          k:= k + 1;
        End;
      Writeln;
    End;
  For i:= 2 To row Do
    Begin
      k:= 1;
      For j:= i To col Do
        Begin
          Write (f, a[j,k]:5);
          Write (a[k,j]:5);
          k:= k + 1;
        End;
      WriteLn;
    End;
  Close (f);
  WriteLn ('Press ESC to EXIT');
  ReadLn;
End.

uses crt;
Var
 MassivNN,a:Array[1..5,1..5] of Integer;
 v_min,v_max,Dummy:Integer;
 i,j,k,N:byte;
 f:Text;
 
Begin
 Assign(f,'f.txt');
 Rewrite(f);
 Randomize;
 Write('v_min= ');
 Readln(v_min);
 Write('v_max= ');
 Readln(v_max);
 for i:=1 to 5 do
  begin
   for j:=1 to 5 do
    begin
     MassivNN[i,j]:=v_min+Random(v_max-v_min);
     write(MassivNN[i,j]:4);
     write(f,MassivNN[i,j]:4);
    end;
   writeln;
   writeln(f);
  end;
 Close(f);
 Writeln;
 Reset(f);
 N:=0;
 Repeat
  read(f,Dummy);
  Inc(N);
 Until EoLn(f);
 Reset(f);
 For i:=1 to N do
  For j:=1 to N do
   read(f,a[i,j]);
 Close(f);
 for j:=1 to N do
  begin
   for i:=1 to j do write(a[i,j-i+1]:4);
   writeln;
  end;
 for i:=2 to N do
  begin
   for j:=N downto i do write(a[N-j+i,j]:4);
   writeln;
  end;
 Readln
End.

  while not eof(f) Do
  begin
    while not eoln(f) Do
    begin
      Read(f, temp);
      write(temp, ' ');
      clmns := clmns + 1;
    end;
    write(' -> ', clmns);
    clmns := 0;
    rows := rows + 1;
    readln(f);
    writeln;
  end;

for k := 1 to n - 1 do
  for i := 1 to n - k do
    writeln(a[i, i + k], ' ', a[i + k, i])
// a[i, i + k] - диагонали с одной стороны от главной диагонали
// a[i + k, i] - диагонали с другой стороны от главной

function Rd_Cell(ii, jj: byte): byte;
var
  kk, tmp: byte;
begin
  Reset(f);
  for kk := 1 to ii - 1 do // Допрыгиваем до нужной строки с номером ii
    readln(f);
  for kk := 1 to jj do
    read(f, tmp); // Считываем элементы строки до нужного номера jj
  Rd_Cell := tmp;
  Close(f)
end;

for k := 1 to n - 1 do
  for i := 1 to n - k do
    writeln(Rd_Cell(i, i + k), ' ', Rd_Cell(i + k, i));