Вывести слова, из которых нельзя составить ключевого слова, ключевое слово вводится отдельно

var i,j:integer;
 sl1,sl2,slovo:string;
     f:boolean;
begin
//writeln('Строка:');
//readln(sl1);
sl1:='привет маша я оля';
writeln('Слово:');
readln(sl2);
sl1:=sl1 + ' ';
  writeln;
  while Pos(' ',sl1) > 0 do
   begin
     Slovo:=Copy(sl1,1,Pos(' ',sl1)-1); {Выделяем слово из строки}
    Delete(sl1,1,Length(slovo)+1); {Удаляем слово из основной строки}
 i:=1;           // номер буквы во втором (sl2) слове
 f:=true;        //  предполагаем, что слово (sl2) составть можно
 if length(sl1)<length(slovo) then f:=false;
// перебираем буквы второго слова пока не проверим все - i<=length(sl2)
//или пока не обнаружим букву, которой нет в первом слове - f=false
 while (i<=length(slovo)) and f do begin
   j:=pos(slovo[i],sl1);       //позиция буквы в первом слове
   if j=0 then f:=false
     else begin delete(sl1,j,1); i:=i+1 end
 end;end;
// анализ результатов проверки
 if f then writeln('Слово "'+sl1+'" составить можно.')
    else writeln('Слово "'+sl1+'" составить нельзя.');
    
    end.

function Contain(const key: String; letters: String);
var i, p: Integer;
begin
  Contain:=False;
  for i:=1 to Length(key) do begin
    p:=Pos(key[i],letters);
    if p=0 then Exit;
    Delete(letters,p,1);
  end;
  Contain:=True;
end;
var s, w, t: String;
begin
  Write('Слова: '); ReadLn(s);
  Write('Ключ:  '); ReadLn(w);
  s:=s+' ';
  while s<>'' do begin
    t:=Copy(s,1,Pos(' ',s)-1); Delete(s,1,Length(t)+1);
    if not Contain(w,t) then WriteLn(t);
  end;
end.