[smiger]

спасибо, но это пол дела....
теперь надо с while not eof (f) do...посильно?)