[boxep]

Сообщение от 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 //Неправильно 

А это получается в "с" мы сохраняем предыдущее значение pos.Age и сравниваем. Блин оказывается так просто, а я не додумался
Спасибо Вам огромное!