Получить в другом файле g все компоненты файла f, которые будут их квадратами - PascalABC.NET

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

помогите с задачей, "известный файл f, компоненты которого целые числа, Получить в другом файле g все компоненты файла f , которые будут их квадратами

Решение задачи: «Получить в другом файле g все компоненты файла f, которые будут их квадратами»

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

var 
  str:string;
  s: char;
  a:real;
  i:integer;
  f,g:text;
begin
  assign(f,'f.txt');
  rewrite(f);
  s:=' ';
  for i:=1 to 10 do
    begin
      a:=random(11);
      write(f,a,s);
    end;
  writeln;
  close(f);
  reset(f);
  assign(g,'g.txt');
  rewrite(g);
  while not eof(f) do
    begin
      read(f,a,s);
      a:=sqr(a);
      write(g,a,s);
    end;
  close(f);
  close(g);
end.

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

Объявлены переменные: str, s, a, i, f, g.
Установлен файловый ввод/вывод для f и g.
В цикле for с 1 по 10 создаются случайные числа от 0 до 10 и записываются в файл f.
Запись в файл f завершается и открывается файл g.
В цикле while с помощью функции eof считываются числа из файла f, которые возводятся в квадрат и записываются в файл g.
Файловый ввод/вывод для f и g закрывается.