[pascal] zadanie z konkursu SPOJ

witam wszystkich !
Piszę gdyż napotkałem problem który mnie przerósł !
rozwiązałem zadanie ze strony
http://pl.spoj.pl/problems/MWPZ06Z/
już wkleję kod rozwiązania, tylko przedstawie mój problem,
polega on na tym ze gdy testuje program z linii komend przez napisanie program.exe < test.in
to wyrzuca błędne odpowiedzi ( nie wszystkie) a gdy ręcznie sprawdzam to wszystko jest dobrze. Rozwiązanie takze jest poprawne!

program tojuzjutro;
var
   l,z,ile,r,tmp,i:integer;
    c:array[1..10000] of integer;
    s:ansistring;


function strint(s:string):integer;
var
nr:integer;
begin
val(s,nr);
strint:=nr;
end;{}


begin
readln(ile);
for z:=1 to ile do
begin
     read(l);
     read(s);
     delete(s,1,1);
     for i:=1 to length(s) do
         c[i]:=strint(s[i]);
     r:=0;
     for i:=1 to length(s) do
     begin
          tmp:=c[i] + 10*r;
          c[i]:=tmp div l;
          r:= tmp mod l;
     end;
     if r <> 0 then writeln('NIE') else
                    writeln('TAK');


end;
end.

wykonuje dzielenie pisemne na duzych liczbach i sprawdzam czy pozostaje reszta ( R ) gdy pozostaje to wypisz NIE a w przeciwnym razie wypisz TAK
Testy znalazłem na stronie :
http://2006.mwpz.poznan.pl/resources.php
"zawody próbne zadanie Z"
Prosiłbym o wskazówkę dlaczego podczas automatycznego testowania jest błąd ?
z góry serdecznie dziękuję