free pascal 错误在哪？。。。急

program score;
var i,k,m,n,j,x,s:longint;
a:array[1..10000,1..2] of longint;
procedure kp(s,e:longint);
var t,l,r:longint;
begin
l:=s;r:=e;t:=a[l,2];
repeat
while (a[r,2]<=t) and (l<r) do dec(r);
a[l,2]:=a[r,2];
a[l,1]:=a[r,1];
while (a[l,2]>=t) and (l<r) do inc(l);
a[r,2]:=a[l,2];
a[r,1]:=a[l,1];
until l=r;
a[l,2]:=t;
if s<l-1 then kp(s,l-1);
if r+1<e then kp(r+1,e);
end;
begin
assign(input,'score.in');reset(input);
assign(output,'score.out');rewrite(output);
readln(n,m);
for i:=1 to n do readln(a[i,1],a[i,2]);
k:=trunc(m*1.5);
kp(1,n);
x:=a[k,2];
for i:=1 to n do
if a[i,2]>=x then inc(s);
writeln(x,' ',s);
for i:=1 to s do
if a[i,2]=a[i-1,2] then if (a[i,1]>a[i-1,1]) then writeln(a[i-1,1],' ',a[i-1,2])
else writeln(a[i,1],' &#

free pascal无错误提示 急求free pascal错误表 free pascal Free pascal 谁知道FREE PASCAL的所有错误表和意思? Tubo Pascal 和 Free Pascal 汉化FREE PASCAL 如何汉化FREE PASCAL free pascal如何设置？？？？？？？？？？？ free pascal 怎么装