[friz]

логика такая

Код:

n:=filesize(f); -узнаем количество записей
inc(i); +1 к номеру записи
if i>n then i:=1; если номер записи больше количества то 1
seek(f,i); переходим на нужную запись

т.е. это крутит по кругу все записи