Вывести количество чисел и их сумму в виде числительных - Free Pascal

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

Считывает текстовый файл. каждая строка которого изображает целое число, изображает слева и справа несколькими пробелами, и выводит количество этих чисел и их сумму в виде числительных т.е. словами

                    Листинг программы
                
 
                        
                          
                    
Program test;
Var  f:text;
      a,s,i: integer;
begin
assign(f,'test.txt');
reset(f);
while not eof(f) do
      begin
      readln(f,a);
      s:=s+a;
      n:=n+1;
      end;
writeln('Count: ',n);
writeln('Amount: ',s);
readln;
end.

Решение задачи: «Вывести количество чисел и их сумму в виде числительных»

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

Program test;
Var  f:text;
     a,s,n: integer;
begin
assign(f,'test.txt');
reset(f);
s:=0;
n:=0;
while not seekeof(f) do //последние пробелы читать не будет
 begin
  read(f,a); //читаем числа, пропуская пробелы
  s:=s+a;
  n:=n+1;
 end;
close(f);
writeln('Count: ',n);
writeln('Amount: ',s);
end.

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

Создаем текстовый файл с названием test.txt
Открываем файл test.txt для чтения
Инициализируем переменные s и n со значениями 0
Начинаем цикл while, который будет выполняться до тех пор, пока не будет достигнут конец файла
Внутри цикла считываем число из файла и добавляем его к переменной s
Увеличиваем значение переменной n на 1
Закрываем файл test.txt
Выводим на экран количество чисел (переменная n)
Выводим на экран сумму чисел (переменная s)