在Pascal编程中如何结束后重新开始？

var a:array[1..2] of longint;
i:longint;ss:ansistring;
procedure guess(s:char);
var n,x,sum:longint;
begin
x:=random(101);
sum:=0;
repeat
write(s,' Please input a number(0-100):');
readln(n);
if n<x then
writeln(' Tips:||Too small.Please try again.||');
if n>x then
writeln(' Tips:||Too large.Please try again.||');
if n<>x then
inc(sum);
until n=x;
writeln(' ||You are right! ye|| total: ',(10-sum)*10);
a[ord(s)-ord('a')+1]:=(10-sum)*10;
if sum<=4 then
writeln('PASS!')
else
writeln('POOR!');
end;
begin
randomize;
repeat
for i:=0 to 1 do
begin
guess(chr(ord('a')+i));
if i=0 then
writeln('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-