Операнды имеют неприводимые типы(Pascal)

[Progerr]

for i:=1 to n-1 do
  begin
    read(m);
    k:=m;
    read(m);
    if (k<0 and 0<m) or (k>0 and m<0) then
      ik:=ik+1;
  end;

Выдает ошибку в цикле,точней в условии "операнды имеют неприводимые типы" ,прошу помощи.(Все переменные целочисельные).

[BDA]

(k<0) and (0<m) or (k>0) and (m<0)

Читайте о старшинстве операций.