while 2 условия - ошибка

[SwiP]

Есть такое:

While not EoF(F1) and R1.kod<>R2.kod
  do begin
..
      end;

F1 - это файл записей, R1.kod - запись.
Это выдаёт ошибку: operator not applicable to this operand type. По одному условию работает, а вдвоём - нехотят, а мне нужно именно эти 2

[Terran]

Попробуйте взять условия в скобки.

While not (EoF(F1)) and (R1.kod<>R2.kod)  do
 begin
..
 end;

[SwiP]

Спасибо, сработало