while not Eof(F) do