mam problem z kopiowaniem plikow.
kopiuje tym :
var arch2, kopia2: text;
linia: string ;
begin
assign (arch2, 'c:\arch2.dat') ;
assign (kopia2, 'c:\kopia2.txt') ;
reset (arch2) ;
rewrite (kopia2) ;
repeat
readln (arch2, linia) ;
write (kopia2, linia) ;
until eof (arch2) ;
close (arch2) ;
end.
ale jezeli plik ma wiecej niz 4kb reszta jest obcinana.
prosze o szybka pomoc ;]