Duda pascal calculadora

[netca]

Hola, termine mi primer programita en pascal  , es una simple calculadora , pero tengo una duda , como puedo hacer para que al resultado se le pueda seguir aplicando una suma , resta , division o multiplicacion? Me explico? Saludos!

Código [Seleccionar] Expandir

program calculadora;
        var
           number1, number2, resultado : real;
           funciones: char;


begin
     Writeln('Este programa es una calculadora');
     Writeln('Inserte el primer numero : '); readln(number1);
     Writeln('Inserte el segundo numero : '); readln(number2);
     Write('Que desea hacer con estos numeros? : sumar(+) , multiplicar(*) , dividir(/) , restar(-)    ');
     Readln(funciones);
     case (funciones) of
     '+' : resultado:=number1+number2;
     '-' : resultado:= number1-number2;
     '/' : resultado:= number1/number2;
     '*' : resultado:= number1*number2;
     else Writeln('No se puede realizar esta operacion');
     end;

     Writeln('El resultado es: ' , resultado) ;

     readln

end.     

[Nakp]

agrega un ciclo(un while talez?) y mientras no salga opera sobre resultado

seria como agregar un bloque donde preguntas si seguir operando, y si sigue entra en un while en el cual, mientras no salga, pide un numero, este unico numero sea operado con el resultado

saludos

pd: te aconsejo no mezclar ingles y español en tu programa xD number y resultado? en fin