program jun2012_prvi; {zadata rec sa glavnog ulaza, da se izbrise iz datotetke i prepise u drugu}

var dat1,dat2:text;
    rec,s:string;




procedure citajrec(var dat:text; var rec:string);
  var ch:char;
begin
  rec:='';
  read(dat,ch);
  while (ch<>' ') do
  begin
    rec:=rec+ch;
    read(dat,ch);

  end;
end;


begin
writeln('Unesite rec koju zelite da izostavite:');
readln(s);


assign(dat1,'ulaz.txt');
reset(dat1);
assign(dat2,'izlaz.txt');
rewrite(dat2);
while not eof(dat1) do
    begin
    while not eoln(dat1) do
    begin
    citajrec(dat1,rec);
    if rec<>s then write(dat2,rec,' ')
    end;
     writeln(dat2,'');
     end;



close(dat1);
close(dat2);
end.