Укажите неправильно записанный оператор:
if x and y then s:=s+1; else s:=s-1;
if k<>m then k:=m;
if (a>b) or (a>c) then c:=a+b;
if x and y then s:=s+1;