Дан текстовый файл, содержащий целые числа. Найти количество чисел в файле и их сумму.

var  f: Text;  n, s, e: integer;begin  n := 0;  s := 0;  Assign(f, 'input.txt');  Reset(f);  while not Eof(f) do  begin    readln(f,e);    n := n + 1;    s := s + e  end;  Close(f);  writeln('В файле ', n, ' чисел; их сумма равна ', s)end.Тестовое решение:В файле 10 чисел; их сумма равна 213Содержимое файла input.txt:243714-64258314027