с использованием данных текстовых файлов

[Регина2]

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

[Mad_Cat]

pascal

c:=0;
while not (eof(f)) do
begin
read(a);inc(c);
end;
writeln(c);

[Регина2]

Спасибо))))