Anonymní profil Nummi – Programujte.com

Fakt tomu nechapem, skusal som menit subory (.txt; .docs), skusal som menit priecinky, miesto ulozenia, ale nic nefunguje. Doteraz som si myslel, ze funkcnost primitivneho programu na 32b verzii musi byt rovnaka ako na 64b.  

Uz sa mi to nechce skusat, ale nemoze byt chyba aj v tom "append(f);"?

Aha. Tak tu je ten zdrojovy kod. (po novom do textoveho suboru vlozim 50,000 slov. Spustim program, napisem cislo 50,000. Program vytriedi kazde neparne slovo a pripise k nemu slovo "- ANO". Nakoniec tie slova ulozi do druheho textoveho suboru, no pri ukladani vzdy padne pri 500. - 5000. slove a viac neulozi)

program slova;
uses crt;
var n, i, d : longint;
A:array[1..1000000] of string;
var f:text; g:text;

begin
clrscr;

repeat

writeln('N');
readln(n);
Assign(g, 'C:\Users\Nummi\Desktop\test0.TXT');
Reset(g);
for i:=1 to n do begin
ReadLn(g, a[i]);
end;
close(g);

d:=0;
n:=(n div 2);
writeln;
writeln('Zapísané');
writeln;
writeln;

assign(f,'C:\Users\Nummi\Desktop\Mailer\maily.txt');
for i:= 1 to n do begin
append(f);
writeln(f,a[1+d],' - Áno');
inc(d,2);
end;
close(f);

until n=0;

end.