Giúp mình với sáng nay thi

pascal

uses crt;
var  n,k,i,res,x:longint;
a:array[-10000..10000] of byte;
begin
assign(input,'TBC.inp');
reset(input);
assign(output,'TBC.out');
rewrite(output);
readln(n,k);
res:=0;
if not((n>0) and (n<50000) and (abs(k)<1000)) then
 res:=-1
else
for i:=1 to n do
begin
 read(x);
 a[x]:=1;
 if not(abs(x)<1000) then
 begin
  res:=-1;
  break;
 end;
 if a[2*k-x]=1 then
 begin
  res:=1;
  break;
 end;
end;
write(res);
end.