[boxep]

Дан файл чисел проверить записаны ли числа в порядке возрастания?

вот код, только не знаю верно ли написан алгоритм?

var pos:Tstudent;
begin
seek(F,0);
while not eof(F) do
read (f,pos);
if pos.age+1 > pos.age then
showmessage('Yes')
else
showmessage('No');