Anonymní profil Nummi – Programujte.com

Zdenda, ty si Boh :) Bola tam chyba :) Miesto tohto:

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);

to malo byt takto:

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

ALE EŠTE RAZ, DÍKY MOC