¿Cómo empezar de nuevo después de terminar la programación en Pascal?

i:longint;ss:ansistring;

procedimiento adivinar(s:char);

var n,x,sum:longint;

comenzar

x:=random(101);

suma:=0;

repetir

escribir(s,' Ingrese un número (0-100):');

readln(n);

si n< x entonces

writeln(' Consejos:||Demasiado pequeño. Inténtelo de nuevo.||');

si n>x entonces

writeln(' Consejos:||Demasiado grande. Inténtalo de nuevo.||');

si n<>x entonces

inc(sum);

hasta n =x;

writeln(' ||¡Tienes razón!ye|| total: ',(10-sum)*10);

a[ord(s)-ord ('a')+1]:= (10-suma)*10;

si suma<=4 entonces

writeln('¡PASS!')

else

writeln('¡POBRE!');

fin;

comenzar

aleatorizar;

repetir

para i：=0 a 1 hacer

comenzar

adivinar(chr(ord('a')+i));

si i=0 entonces

writeln('-=-=-=-=-=-=-=-=-=-=-=-= -=-=-=- =-=-=-=-=-=-=-=-=-=-=');

fin;

escribir;

escribir (' total：||a :',a[1],' b :',a[2],'|| puntuación:', a[1],' a ',a[2]);

si a[1]>a[2] entonces

writeln(' b gana! ')

si a[1]

writeln(' ¡una victoria!')

si a[1]= a[2] luego

writeln(' draw !');

readln(ss);

hasta ss='exit';

fin.

Es un largo camino para escribir.

Simplemente agregue repetir, hasta y escriba salir cuando desee salir; de lo contrario, se repetirá infinitamente