Program g16_44;<br/>
var s,w:string;<br/>
    i,k,m:byte;<br/>
Begin<br/>
writeln('Введите текст и слово');<br/>
readln(s);<br/>
readln(w);<br/>
m:=length(w);<br/>
i:=1;<br/>
repeat<br/>
 k:=Pos(w[i], s);<br/>
 delete(s,k,1);<br/>
 i:=i+1;<br/>
 until (i>m) or (k=0);<br/>
 if i>m then writeln('Слово составить можно')<br/>
 else writeln('Слово составить нельзя')<br/>
 END.<br/>
</p>