Пусть имеется текстовый файл, который содержит несколько целых чисел. Открыть этот текстовый файл и каждое из чисел вознести в квадрат — Pascal(Паскаль)

В папке с программой текстовый файл, заполни его целыми числами хоть как, лишь бы между числами были пробелы, например
2 3 4 5
6
7
8
9
после последнего числа не должно быть никакого  символов типа пробелов и табуляции, иначе появиться лишний ноль.

uses crt;
var f:text;
    i:byte;
    name:string;
    a:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
while not eof(f) do
 begin
  read(f,a);
  a:=a*a;
  write(a,' ');
 end;
close(f);
readln
end.