Pascal/Turbo Pascal - Ayuda calculadora free pascal

Uses CRT;

var

 N1,N2,OP : Integer;

salir:boolean;

tecla: char;

  Function suma (var n1:integer; var n2: integer):integer;

  BEgin

    Suma :=n1+n2;

  end;

  Function resta (var n1:integer; var n2: integer) : Integer;

  begin

    resta:=n1-n2;

  end;

    Function multi(var n1:integer; var2: integer): integer;

  begin

    multi := n1*n2;

  end;

  Function dividir(var n1: integer; var n2:integer) : integer;

  begin

    if n2=0 then Writeln('No es posible efectuar una división por cero')

else

  dividir := n1 div n2;

 end;

  Procedure Menu(OPC : integer);

begin

  clrscr;

  Writeln('1. Suma');

  writeln('2. Resta');

  writeln('3. Multiplica');

  writeln('4. divide');

  writeln('5. salir');

  Case opc of

    1: Writeln('El resultado es: ',Suma(n1,n2));

    2: Writeln('El resultado es: ',Resta(n1,n2));

    3: Writeln('El resultado es: ',Multi(n1,n2));

    4: Writeln('El resultado es: ',dividir(n1,n2));

    5: Halt;

  end;

end;

  begin

  salir:=false;

  Repeat

     begin

     Writeln('Introduzca dos n£meros');

     Readln(N1);

     Readln(N2);

     Writeln('Introduzca una opci¢n: : ');

     Readln(OP);

          Menu(op);

     Writeln('Pulse una tecla para continuar');

     readkey;

     if op=5 then salir:=true

     else

     Writeln('Desea realizar otra operaci¢n: ');

     tecla:=readkey;

     if (tecla = 'N') or (Tecla='n') then

       salir:=true

     else

       salir := false;

     end;

  Until salir

end.