Matematické Fórum

Zdravím,
mám tady "jednoduchou" úložku v pascalu, v které mám zřejmě někde chybu.

Zadání: Je dán textový soubor "cisla.in", ve kterém je na prvním řádku číslo N, na druhém řádku následuje N čísel oddělených mezerami. Všechna čísla jsou v desítkovém zápisu a vlezou se do 32-bit integeru. Spočtěte součet všech N čísel a vypište jej na STDOUT, součet se rovněž vejde do 32-bit integeru.

např. cisla.in             5
                               2 7 8 10 3
       
        výstup              30



Zdroják:

program soucet;
var i,n,soucet,x:integer; t:text;
begin
assign(t,'cisla.in');
reset(t);
readln(t,n);
i:=1;
soucet:=0;
while i <= n do
     begin
     read(t,x);
     soucet:=soucet + x;
     i:=i + 1;
     end;
writeln(soucet);
end.

nevidí někdo chybu, jeden test ze tří mi neprošel

nabízím ještě hlášení codexu:
Jailing user 'codex' (UID 1003, GID 1003) into directory '/home/codex/workers/eval2/jail'
Initializing... OK
Preparing sandbox... running locally (INSECURE), OK
Finding source... ./inbox/source.pas
Compiling... OK
Test 1... <init> <run> <filter> <check> OK:OK (200 points)
Test 2... <init> <run> <filter> <check> OK:OK (200 points)
Test 3... <init> <run> RE:Runtime error 201: Range check error

děkuji všem za ochotu a hledání chyby
Majki