Что нужно добавить в код чтобы текст был и в самом файле и отображался в окне вывода - Pascal

Формулировка задачи:

                    Листинг программы
                
 
                        
                          
                    
const 
n=9;
FileName='tabl.txt';
procedure CreateTable(var f:text);
Var x, y: Byte;
  a: array[2..n, 2..n] of integer;
Begin
Assign(F,'c:\tabl.txt');
Rewrite(F);
  writeln(F, 'Таблица умножения от 2 до 9');
  write(F, '  *|');
  for x := 2 to n do write(f, x:4);writeln(F);
  for x := 2 to n + 1 do write(f, '-----');writeln(F);
  for x := 2 to n do
  begin
    write(F, x:3, '|');
    for y := 1 to n do
      write(F, x * y:4);
 writeln(f);
 end;
Close(f);
end;
procedure FileOut(var f:text);
var S: string;
begin
  Assign(F,'tabl.txt');
  Reset(F);
  while not EoF(F) do
  begin
    ReadLn(F,S);
    WriteLn(S);
  end;
  Close(F);
end;
var f:text;
begin
  if not FileExists('tabl.txt') then CreateTable(f)
  else  FileOut(f);
end.

Решение задачи: «Что нужно добавить в код чтобы текст был и в самом файле и отображался в окне вывода»

Листинг программы

const n=9; FileName='tabl.txt';
procedure WriteTbl(var f: Text);
var i, j: Integer;
begin
  WriteLn(f, 'Таблица умножения от 2 до 9');
  Write(f, '  \|');
  for j := 2 to n do Write(f, j:4); WriteLn(f);
  for j := 2 to n do Write(f, '-----'); WriteLn(f);
  for i := 2 to n do begin
    Write(f, i:3, '|');
    for j := 2 to n do Write(f, i * j:4); WriteLn(f);
  end;
end;
procedure ShowFile(var f: Text);
var s: String;
begin
  while not EOF(f) do begin
    ReadLn(f,s); WriteLn(s);
  end;
end;
var f: Text;
begin
  Assign(f, FileName); {$I-}Reset(f);{$I+}
  if IOResult<>0 then begin
    Rewrite(f); WriteTbl(f); WriteTbl(output);
  end else ShowFile(f);
  Close(f);
end.

Объяснение кода листинга программы

В начале кода объявлены переменные n и FileName, которые будут использоваться в дальнейшем.
Затем объявлен procedure WriteTbl, который будет записывать таблицу умножения от 2 до 9 в файл f.
Внутри WriteTbl используются циклы for для вывода заголовка таблицы и каждой строки таблицы.
Далее объявлен procedure ShowFile, который будет читать содержимое файла f и выводить его на экран.
В основной части кода создается экземпляр файла f с именем FileName.
Если файл f не пуст, то его содержимое считывается и выводится на экран.
Если файл f пуст, то записывается таблица умножения от 2 до 9 в файл f.
После этого файл f закрывается.
Конец программы.