在Pascal編程中如何結(jié)束后重新開始？

結(jié)束用alt＋x比較好。。野橡。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
看錯(cuò)了，薯和我用數(shù)脊盯的是tobo pascal

ctrl+c

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 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] writeln(' a win !');
if a[1]=a[2] then
writeln(' draw!');
readln(ss);
until ss='exit';
end.
打得好長啊。。。
就是加個(gè)repeat，until，想退出的時(shí)候輸入exit即可，鎮(zhèn)友否則無限循信旅者環(huán)