How can I know that's the end of input?
Thank you in advance.

> How can I know that's the end of input?
> Thank you in advance.


Simple
you add {$I-} at the beginning of the code
and you use eof(input)

something like

while not eof(f) do
read(time);
if not eof(f) then.........