Правильный фрагмент программы:
if (x>1) and (x<2) then
begin
x:=x+1;
y:=0
end
else
x:=0;
y:=y+1
end;
Объяснение: но не точно (
