Cần giúp đỡ về lỗi code

[thambt029]

Mình code trên free pascal nó hiện ra exited with exitcode =2
Lỗi này là lỗi gì vậy

const    Limit =30000;
           fi:='SN.INP';
            fo='SN.OUT';
var       c:array [0..Limit] of longint;
           n:longint;
           i,x;longint;
           f:text;
begin
  fillchar(c,sizeof(c),0);
  assign(f,fi);reset(f);
   readln(f,n);
  for i:=1 to n do begin
read(f,x);
if x<=n then inc(c[x]);
end;
close(f);
for i:=0 to n do
if c[i]=0 then begin
x:=i;
break;
end;
assign(f,fo);rewrite(f);
write(f,x);
close(f);
End.
[\Code]
bạn nao giúp mình cách sửa với

[atdzvl12]

Exit code = 2

Đó là lỗi do bạn chưa tạo file INPUT

đâu cần dán cả code lên như thế [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]

Chúc bạn sửa ok