Pascal/Turbo Pascal - evitar termino de programa

bueno, estoy empezando con esto y tengo un problema con un programa que hice para calcular el volumen de una circunferencia, que una vez que calculo el volumen se cierra. quisiera saber como poner después que diga desea calcular otra cosa? o algo por el estilo y que pregunte el radio de nuevo. Aquí va el código: (donde están los ************ dice otra cosa que la censuré jaja)

(*Oliver Mohr
Versión 1.0.0
Fecha de inicio 14-07-2010
Objetivo: Aprender
Fichero: aprendiendo.pas*)
const
Pi=3.141592;
var
R: real;
function Volumen(R: real):real;
begin
Volumen:= (4/3)*Pi*R*R*R
end;
begin
writeln('Ingrese el radio de la esfera');
readln(R);
if R > 0 then
write ('Esfera de radio ',R:6:3, ' tiene volumen ',Volumen(R):8:4);
if R = 0 then write ('******************');
if R < 0 then write ('******************');
readln();
end.

PD: otra duda, antes el programa se me cerraba solo y encontré como sugerencia en inet escribir readln() al final del programa pero no entendí porqué se usa, tampoco lo recomendaban mucho, me gustaría también entender un poco más esa parte.

pues es hora de empezar con ciclos:

ahi vamos añadiendole a tu codigo

const
Pi=3.141592;
var
R: real;
tecla:char;
function Volumen(R: real):real;
begin
Volumen:= (4/3)*Pi*R*R*R
end;
begin
repeat
writeln('Ingrese el radio de la esfera');
readln(R);
if R > 0 then
writeln ('Esfera de radio ',R:6:3, ' tiene volumen ',Volumen(R):8:4);
writeln('Desea continuar S/N');
Tecla:=readkey;
Until (Tecla ='N') or (Tecla ='n' );
end.

program aprendiendo;
(*Oliver Mohr
Versión 1.0.0
Fecha de inicio 14-07-2010
Objetivo: Aprender
Fichero: aprendiendo.pas*)
const
Pi=3.141592;
var
R: real;
tecla: char;
function Volumen(R: real):real;
begin
Volumen:= (4/3)*Pi*R*R*R
end;
begin
repeat
writeln('Ingrese el radio de la esfera');
readln(R);
if R > 0 then
write ('Esfera de radio ',R:6:3, ' tiene volumen ',Volumen(R):8:4);
if R = 0 then write ('****************');
if R < 0 then write ('************');
writeln ('Desea continuar? (S/N)');
Tecla:=readkey;
Until (tecla ='N') or (tecla ='n');
end.

quedó asi pero no me reconoce readkey
dice identifier not found "readkey"

ya lo solucioné eso, pero cuando no se inserta un radio numérico por ejemplo una letra o cuando en S/N inserto k por ejemplo el programa se ceirra como evito eso?

El error que te marca al insertar letras al momento de leer datos númericos lo puedes corregir con el ioresult..el read y readln no acepta teclas especiales como el esc , para validar eso tendrias que hacer tu editor de lectura de numeros

Program Ejercicio;
Uses Crt;
Const
Pi=3.141592;
Var
R: Real;
Tecla:Char;
Function Volumen(R: real):real;
Begin
Volumen:= (4/3)*Pi*R*R*R
End;
Begin
Repeat
ClrScr;
Writeln('Ingrese el radio de la esfera');
Readln(R);
If R > 0 Then
Writeln ('Esfera de radio ',R:6:3, ' tiene volumen ',Volumen(R):8:4);

Writeln('Pulse Cualquier tecla Para Continuar ,S Para Salir...');
Tecla:=Readkey;
Until (Tecla ='S') Or (Tecla ='s' );
End.