Program: Zapisujący wprowadzone dane do pliku. (zachowuje ilość wierszy)
Nazwa pliku jest zaprogramowana w kodzie i musi być “tekst.txt”.
Kompilator: Turbo Pascal
Kod programu:
program plik;
uses crt;
const nazwapliku='tekst.txt';
var
f:text;
wiersz:string;
begin
clrscr;
assign(f,nazwapliku);
rewrite(f);
repeat
readln(wiersz);
if wiersz <> ''then
writeln(f,wiersz);
until wiersz ='';
close(f);
readkey;
end.