Pascal question

program calculator_in_pascal;
var
   x : integer;
   num1 , num2 , ms , amo : real;
   ope , ord : char;
   cho : string;
begin
   num1 := 0;
   x := 0;

                  { calculator program }
   writeln();
   writeln(' ______________________________________________________');
   writeln('| After each Number or Operation, Please press <Enter> |');
   writeln('|______________________________________________________|');
   Readln(num1);
   while x < 1 do
   begin
   Readln(ope);
   if ope = '+' then
   begin
      readln(num2);
      num1 := num1 + num2;
   end         {addition}
   else if ope = '-' then
   begin
      readln(num2);
      num1 := num1 - num2;
   end         {Subtraction}
   else if ope = '*' then
   begin
      readln(num2);
      num1 := num1 * num2;
   end         {Multiplication}
   else if ope = '/' then
   begin
      readln(num2);
      num1 := num1 / num2;
   end        {division}
   else if ope = '=' then
   begin
      writeln(num1:0:9);
      writeln();
      writeln('select 1- for Continue OR 2- for Exit');
      readln(ord);
      if ord = '1' then
          begin
          continue;
          end
      else if ord = '2' then
          begin
          break;
          end;
   end;
   end;

   writeln();
   writeln();
   writeln('press <Enter> to Quit');
   readln();
end.