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

Смотря какой файл. Типизированный (file of string например) или текстоый ? Если первое, то FlieSize, если текстовый, то читать все строки из файла и увеличивать при этом счетчик ...

переменная f:text. я так понимаю это второй случай

да.
тогда

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

А зачем тебе для этого знать число строк в файле? Что, Repeat ... Until (конец файла) уже не устраивает?