Record io file efunguje priklad – Pascal – Fórum – Programujte.com

ahoj,
robili sme v skole jednu primitivnu ulohu v pascale ale nefunguje mi ;( ucitelka nevie, preco....
viete mi niekto pomoct?mi to nedalo a doma som skusil ten isty priklad a kompiloval som cez "Free Pascal Compiler version 2.0.4 [2007/02/02] for i386" a tu to vsetko bezproblemov islo... preco to nejde v skole?(viem, ze je to asi zastaralym kompilatorom-rok cca 1990, ale KTORA funkcia je v nom akoze nepodporovana?)

program blablabla;



type bod = record

    x,y:integer;

    end;



var a : array[1..10] of bod;

    f,g:text;

    i,pocet:integer;

begin

    assign(f,'in.txt');

    reset(f);





    pocet :=0;

    while not EOF(f) do begin

        inc(pocet);

        readln(f, a[pocet].x, a[pocet].y);



    end;

    close(f);



    assign(g,'out.txt');

    rewrite(g);





    for i:=1 to pocet do begin



        writeln(g,a[i].x,' ', a[i].y);



    end;







    close(g);

end.

Program se bez problému přeloží i ve starém Turbo pascalu a funguje správně.
Akorát je tam slabina - a to, že pole A je indexované jenom do 10. Tedy - pokud má soubor IN.TXT více než deset řádek, tak se program zhroutí, neboť dojde k překročení rozsahu pole.

ahoj,
no ja som pouzival len cca 3 riadky a predsa mi nefungoval v dev pascale(z toho som vydedukoval, ze nepojde ani v starom borlande)... stale mi len spravil prazdny outputovy subor ;) ale nevadi, hlavne, ze tu to funguje :)