怎样在Pascal编程中数出输入文件中的个数

Program xx;
Var n:int64;
s:Longint;
Begin
Assign(input,'*:\**\***.txt');
Reset(input);
While not eof(input) Do
Begin
Read(n);
Inc(s);
End;
Writeln(s);
End.

从文件中逐个读入,每次使用Eof函数判断文件是否完结,若文件完结了,则就知道读入个数了