[urahara]

Код:

while not Eof(f) do

этот цикл выполняется пока не достигнет конца файла, а ты уже все что тебе нужно считал выше, так что он вообще здесь не в какие ворота.


p.s. код просто ужасен.