program internetovareklama; {10}
var t,s:text;
    FN,reklama,ret:string;
    cena,pocet:integer;
begin
     write('Zadaj nazov aj priponu originalneho suboru: ');
     readln(FN);
     write('Zadaj reklamny retazec: ');
     readln(reklama);
     write('Zadaj cenu za 1 riadok: ');
     readln(cena);
     assign(t,FN);
     reset(t);
     assign(s,'kopia.htm');
     rewrite(s);
     pocet:=0;
     while not eof(t) do
     begin
          readln(t,ret);
          if ret='' then begin
             writeln(s,reklama);
             pocet:=pocet+1;
          end else writeln(s,ret);
     end;
     close(s);
     close(t);
     write('Firma zarobi na slogane: ',pocet*cena,' SK');
     readln;
end.