Что добавить в код, чтобы текст в окне вывода появился в файле и сохранился там?

const
  n=9;
var
f: file of char;
c:char;
t:text;
  a: array[2..n,2..n] of integer;
  i,j: byte;
begin
    assign (f, 'c:\file.txt');
    rewrite (f);
 writeln('Таблица умножения от 2 до 9');
  write('  *|');
  for i:=2 to n do write(i:4); writeln;
  for i:=2 to n+1 do write('-----'); writeln;
  for i:=2 to n do
  begin
    write(i:3,'|');
    for j:=1 to n do
      write(i*j:4);
    writeln;
  end;
  readln;
end.

const
  n = 9;
 
var
  f: text;  
  a: array[2..n, 2..n] of integer;
  i, j: byte;
 
begin
  assign(f, 'c:\file.txt');
  rewrite(f);
  writeln(f, 'Таблица умножения от 2 до 9');
  write(f, '  *|');
  for i := 2 to n do write(f, i:4);writeln(f);
  for i := 2 to n + 1 do write(f, '-----');writeln(f);
  for i := 2 to n do
  begin
    write(f, i:3, '|');
    for j := 1 to n do
      write(f, i * j:4);
    writeln(f);
  end;
  close(f);
end.

const
  n = 9;
 
var
  f: text;  
  a: array[2..n, 2..n] of integer;
  i, j: byte;
  s:string;
 
begin
  assign(f, 'c:\file.txt');
  rewrite(f);
  writeln(f, 'Таблица умножения от 2 до 9');
  write(f, '  *|');
  for i := 2 to n do write(f, i:4);writeln(f);
  for i := 2 to n + 1 do write(f, '-----');writeln(f);
  for i := 2 to n do
  begin
    write(f, i:3, '|');
    for j := 1 to n do
      write(f, i * j:4);
    writeln(f);
  end;
  close(f);
  reset(f);
  while not EoF(f) do
  begin
    readln(f,s);
    writeln(s);
  end;
end.