Даны два слова. Составьте программу, определяющую можно или нет из букв слова А составить слово В

[Конь Антон]

помогите пожалуйста решить Даны два слова. Составьте программу, определяющую можно или нет из букв слова А составить слово В.

[newerow1989]

var a,b,c:string;
    i,j:integer;
begin
   a:='qwert';
   b:='werty';
   c:='';
   For i:=1 to Length(a) do
      For j:=1 to Length(b) do
      begin
         If a[i]=b[j] then
         begin
            Delete(b,j,1);
            Break;
         end;
         If j=Length(b) then
            c:=c+a[i];
      end;
   //Writeln(b,' ',c);
   If b='' then
      Writeln('yes') else
      Writeln('no');
   Readln;
end.

Сойдет?