JUnior Ferrarezi

Gostaria da ajuda do forum para fazer funcionar corretamente uma calculadora com as 4 operações aritimeticas utilizando o comando case.Utilizo o delphi 7.No final aparece a mensagem :(54) constant expression expected.Obrigado.

program  calculadora_comando_case

{$APPTYPE CONSOLE}

uses
  SysUtils;

var escolha:integer;
    result:real;
    primeiro_numero,segundo_numero:integer;

begin
     writeln('Digite 1 para soma');
     readln(escolha);
     writeln('Digite 2 para subtração');
     readln(escolha);
     writeln('Digite 3 para multiplicação');
     readln(escolha);
     writeln('Digite 4 para divisao');
     readln(escolha);
     writeln('Digite o primeiro numero');
     readln(primeiro_numero);
     writeln('Digite o segundo numero');
     readln(segundo_numero);

     case escolha of
     1:
     begin
     result := primeiro_numero  + segundo_numero;

     End;

     2:
     begin
     result := primeiro_numero  - segundo_numero;

     End;

     3:
     begin
     result := primeiro_numero  * segundo_numero;

     End;



     4:
     begin
     result := primeiro_numero  / segundo_numero;

     End;


     writeln ('O resultado e:',result:2:2);
     End;
     readln;
end.