Составьте программу, позволяющую проверить, можно ли из букв слова Х составить слово У. Буквы можно переставлять, но каждую букву можно использовать только 1 раз.

я ее переделала немного, ибо насчет break препод бомбит

program pr;varx,y:string;i,p:integer;f:boolean;beginwriteln('введите слово');readln(x);writeln('введите слово');readln(y);F:=True;for i:=1 to Length(y) do beginp:=Pos(y[i],x);if p>0 then Delete(x,p,1)else begin f:=False;end;    end;  if f then    Writeln('Можно составить ')  else    Writeln('Нельзя составить ')end.

Не завидую Вам, если у Вас "препод". Лучше бы был преподаватель, может не бомбил бы тогда.

прошу прощения, а что здесь значит переменная p?

p - позиция найденного символа в строке

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016begin  var x:=ReadlnString('Введите слово Х:');  var y:=ReadlnString('Введите слово Y:');  var Good:=True;  for var i:=1 to y.Length do begin    var p:=Pos(y[i],x);    if p>0 then Delete(x,p,1)    else begin Good:=False; Break end    end;  if Good then    Writeln('Можно составить ',y)  else    Writeln('Нельзя составить ',y)end.Тестовое решение:Введите слово Х: образованиеВведите слово Y: названиеНельзя составить названиеВведите слово Х: образованиеВведите слово Y: баронМожно составить барон