case a of

  0:

     begin

           x := 1;

           y := 1;

      end

  else

      begin

           x := 2;

           y := 2;

      end

 end;