zapis var x:text; begin assign(t,' '); rewrite(t); writeln(t, 's�owo'); close(t);end. odczyt var t:text; begin assign(t, 'sciezka'); reset(t); if not eof(t) then begin(jezeli ma byc kopiowana calosc pliku nie 1linijka) readln(t,s); writeln(s); close(t); end. append nadpisanie - dzia�a tak jak zapis tylko w miejsce rewrite wpisujemy append
emill1212