Найти и исправить ошибки в выражениях на Паскале

1)

if (x > 1) and (x < 2) then begin

x:=x+1;

y:=0

end

else begin

x:=0;

y:=y+1

end;

2)

if (x > 1) and (x < 2) then begin

x:=x+1;

y:=0

end

else

begin

x:=0;

y:=y+1;

end;