uses crt;
var plik: text;
imie: string;
begin
clrscr;
assign(plik,'c:\index.htm');
rewrite(plik);
write('Podaj imie'); readln(imie);
write(plik,'');
write(plik,'');
write(plik,'',imie,' - moja strona');
write(plik,'');
write(plik,'');
write(plik,'MOJE CV');
write(plik,'');
write(plik,'| IMIE | ');
write(plik,'',imie,' | ');
write(plik,'
');
write(plik,'');
write(plik,'');
close(plik);
readln
end.