In test #2 total number of numbers in input more than 25000

I'm so sorry...:-) Problem 1126 Magnetic storms.
"INPUT. The first line contains a number M, 1 < M <= 14000. Then values (integer) measured by the device follow each one in its line. There is a number -1 in the end. The number of measurements doesn't exceed 25000."

it's my "reading" part of code
 n:=0;
     while true do
           begin
                read(c);
                if c=-1 then break;
                n:=n+1;
                a[n]:=c;
           end;
     if n>25000 then while true do begin end;

when I changed array size from 25000 to 250000 I've got AC.
P.S. I know, that I shouldn't store input data in array. =)
And I know, where my solution can get TL. But AC... :(

Sample, where my solution gets TL:
2
1
1
10000
1
1
10000
1
1
10000
1
1
10000
....... more than 10000 digits...
1
1
10000
-1