Посчитать количество строк в файле, маленький кусок большой проги Опции

[JPearce]

Меня наверно засмеют за такой вопрос, но все же как посчитать кол-во строк в файле? То есть дан файл, его присваивают переменной f, надо узнать скоко в нем строк. (на самом деле все это нужно чтобы загрузить меню из файла). Заранее спасибо.

[мисс_граффити]

да.
тогда

while not(EOF(f)) do
begin
readln(f,s);
i:=i+1;
end