Calculo Personalizado (PASCAL)

Program Pzim ;
     uses crt;
var
    i,num1,num2,resultado:integer;    
    opcao,sair:char;
    num1d,num2d,resultadod:real;
    nome:string;
 Begin
    clrscr ;
     textbackground( black ) ;
     //for i := 9 to 15 do
     //begin
       //textcolor( i ) ;
       textcolor( random( 15 ) ) ;
       clrscr ;
       write( 'Digite seu nome: ' ) ;
       delay( 500 ) ;
       
     //end;
   
     read( nome ) ; 
    sair := 'N';
    clrscr ;
    i :=9;
    repeat
      repeat
        clrscr ;
        if ( (i>= 9) and (i<=14)) then
            inc( i )
        else
        i :=9;;
        textcolor( i ) ;       
       
           writeln( nome,' escolha qual operação deseja executar. ') ;
         writeln( '' ) ;
        writeln( '1 = Somar' ) ;
        writeln( '2 = Subtrair' ) ;
        writeln( '3 = Multiplicar' ) ;
        writeln( '4 = Dividir' ) ;
        opcao := readkey ;
        writeln( '' ) ;
     
        if ( opcao = '1' ) then
        begin
            writeln( nome,' informe dois numeros:' ) ;
             readln( num1 ) ;
             readln( num2 ) ;
            
               resultado := num1 + num2;
               writeln( 'Resultado: ',resultado ) ;
         end
         else
         
        if ( opcao = '2' ) then
        begin
            writeln( nome,' informe dois numeros:' ) ;
             readln( num1 ) ;
             readln( num2 ) ;
            
            if ( num1 >  num2) then
            begin
                 resultado := num1 - num2;
                   writeln( 'Resultado: ',resultado ) ;
               end
               else
               begin
                 resultado := num2 - num1;
                   writeln( 'Resultado: ',resultado ) ;
               end
         end
        else
       
        if ( opcao = '3' ) then
        begin
            writeln( nome,' informe dois numeros:' ) ;
             readln( num1 ) ;
             readln( num2 ) ;
            
               resultado := num1 * num2;
               writeln( 'Resultado: ',resultado ) ;
         end
         else

        if ( opcao = '4' ) then
        begin
            writeln( nome,' informe dois numeros:' ) ;
             readln( num1d ) ;
             readln( num2d ) ;
            
               resultadod := num1d / num2d;
               writeln( 'Resultado: ',resultadod:0:1 ) ;
         end
        else
        begin
            clrscr ;
            writeln( '' );
            writeln( 'A opção ("' , opcao  ,'") não está disponivel ' ) ;        
             delay( 1000 ) ;
            clrscr ;
         end ;
        
        
         until ( (opcao = '1') or (opcao = '2') or (opcao = '3') or (opcao = '4') );
        repeat
            gotoxy( 1, 1 ) ;
             write( 'Deseja efetuar um novo calculo ',nome,' ?  (S/N)' );
             sair := upcase( readkey ) ;
            if ( (sair = 'N') or (sair = 'S') ) then
            begin
                 clrscr ;
               end      
            else
            begin
                 clrscr ;
                writeln( 'A opção ("' , sair  ,'") não está disponivel ' ) ;
                delay( 1000 ) ;
                clrscr ;
               end;              
          until ( (sair = 'N') or (sair = 'S') );
                
    until (sair = 'N'  );
    clrscr ;
    writeln( '' );
    writeln( '' );
    writeln( '' );
    writeln( 'Obrigado por ter usando minha ferramenta de calculos' ) ;    
    writeln( '' );
    writeln( 'Creditos:' ) ;
    writeln( '' );
    write( '            Everaldo José de Souza' ) ;
    writeln( ' - Aluno IFPR - Turma 2011' ) ;
    delay( 3000 ) ;   
 End.