Дан двухмерный массив из случайных чисел, записать его во внешний файл — Pascal(Паскаль)

program prover;
 
uses
  crt;
 
var
  f: text;
  a: array[1..100, 1..100] of integer;
  i, j,n: integer;
  s, st: string;
 
begin
  clrscr;
  readln(n);
  randomize;
  st := '';
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(10);
    end;
  end;
  assign(f, '1.txt');
  rewrite(f);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      str(a[i, j], s);
      st := st + s + ' ';
      end;
    writeln(f, st);
    st := '';
  end;
  close(f);
end.