текстовый файл

[Абай]

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

[ИВэТэшка]

если я правильно понял ваше

изображает целое число

, то все просто:

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.