Не работает в Free pascal

Эта программа не работает в free pascal

 {вывести на экран числа от 1 до 5 с помощью цикла for, при этом первое значение увеличить на 1,
  второе на 2, третье на 1, четвертое на 2 и т.д.}
  var x, z, y:integer;
  z:=1;
  for x:=1 to 5 do // переменная х получает очередное значение
  begin // открывающая операторная скобка
   y:=x+z;
   if(z=1) then // оператор условия в полной форме(с else)
   begin
    z:=2;
   end else
   begin
    z:=1;
   end;
   writeln('x=', x, ' y=', y);
   
  end; 

Она будет работать, если добавить одну пару begin end.

{вывести на экран числа от 1 до 5 с помощью цикла for, при этом первое значение увеличить на 1,
 второе на 2, третье на 1, четвертое на 2 и т.д.}
 var x, z, y:integer;
begin {Эта строка добавлена}
 z:=1;
 for x:=1 to 5 do // переменная х получает очередное значение
 begin // открывающая операторная скобка
  y:=x+z;
  if(z=1) then // оператор условия в полной форме(с else)
  begin
   z:=2;
  end else
  begin
   z:=1;
  end;
  writeln('x=', x, ' y=', y);
   
 end;
end. {Эта строка добавлена}
vedro-compota's picture

math2, спасибо)

_____________
матфак вгу и остальная классика =)

Не за что!