Pascal/Turbo Pascal - Error en el else y no se q esta mal

var

  radio: real;

  pi: real;

  perimetro: real;

  area: real;

  a:integer;

  z: integer;

begin

  pi:= 3.14;

  writeln ('Introduzca radio');

  read (radio);

  writeln ('yes(0) or no(1)');

  read (a);

  if a=0 then

   area:=(pi*radio*radio);

   writeln (area);

  else

   perimetro:=(2*pi*radio);

   writeln (perimetro);

  read (z);

end.

var

radio: real;

pi: real;

perimetro: real;

area: real;

a:integer;

z: integer;

begin

pi:= 3.14;

writeln ('Introduzca radio');

read (radio);

writeln ('yes(0) or no(1)');

read (a);

if a=0 then {Si no pones begin..end, aquí te mostraría siempre el área elijas la opción que elijas}

begin

area:=(pi*radio*radio);

writeln (area);

end

else

begin

perimetro:=(2*pi*radio);

writeln (perimetro);

read (z);

end;

end.