[mak-karpov]

ну запоминай в какой-нибудь переменной
например так

Код:

var c : Integer;
      b : boolean;
      pos : TStudent;
begin
seek(F,0);
c := 0;
b := true;
while not eof(F) do begin
   read (f,pos);
   if pos.Age <= c then b := false;
   c := pos.Age;
end;
if b then //Правильно
     else //Неправильно