Why I got crash on 10 test????

var a:array[1..100]of string;
n,i:integer; c:string;
begin
read(n);
for i:=1 to n+1 do readln(a[i]);
readln(c);
for i:=1 to n+1 do if pos(c,a[i])=1 then writeln(a[i]);
end.

Because 1<=N<=1000 (not 1<=N<=100).

Thank you=)) I got AC=))