program pisanie;
uses crt;
const Nazwa='\\sbs2k\desktop$\poziomc\ciesielczyk2007\WPROW.txt';
var
F:text;
Wiersz:string;

BEGIN
Clrscr;
Assign(F,Nazwa);
Rewrite(F);
repeat
Readln (wiersz);
if Wiersz<>''then
writeln(F,Wiersz);
until Wiersz='';
Close(F);
Writeln('zapisywanie zakonczone');
readln;
end.