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

Question

是 FREE PASCAL ，
是从图中转为开头，
请将程序写下来。

Answer 1

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('-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');
end;
writeln;
writeln(' total:||a :',a[1],' b :',a[2],'|| score:',a[1],' to ',a[2]);
if a[1]>a[2] then
writeln(' b win !');
if a[1]<a[2] then
writeln(' a win !');
if a[1]=a[2] then
writeln(' draw!');
readln(ss);
until ss='exit';
end.
打得好长啊。。。
就是加个repeat，until，想退出的时候输入exit即可，否则无限循环

Answer 2

ctrl+c

Answer 3

结束用alt＋x比较好。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
看错了，我用的是tobo pascal