В строке S записаны слова исходного текста, в отдельной строке S1- одно из слов, которое может быть в строке S (количество букв в S1 не превышает 10)

var s,s1,st:string;
f:boolean;i,j,k:byte;
begin
readln(s);
readln(s1);
i:=1;f:=true;
while (i<=length(s)) do
begin
if (copy(s,i+length(s1),1)=' ') or (i>length(s)-length(s1)) then
                                begin
                                st:=copy(s,i,length(s1));
                                j:=1;k:=0;
                                while (j<=length(s1)) and f do
                                 begin
                                 if st[j]<>s1[j] then k:=k+1;
                                 if k>1 then f:=false;
                                 j:=j+1;
                                 end;
                                if k=1 then
                                  for j:=1 to length(s1) do
                                  if s[i+j-1]<>s1[j] then s[i+j-1]:=s1[j];
                                i:=i+length(s1)-1
                                 end;
i:=i+1;f:=true;
end;
writeln;
writeln(s);
end.