Записать программку, выясняющую, можно ли из букв слова X составить слово

Ответ:

var

 mn, st: set of char;

 s, s1: string;

 f: char;

 i, k, p: integer;

begin

 writeln('Введите слово X');

 readln(s);

 for i := 1 to length(s) do

   mn := mn + [s[i]];

 writeln('Введите слово Y');

 readln(s1);

 for i := 1 to length(s1) do  

   st := st + [s1[i]];    

 if (st lt;= mn) and (length(s1) lt;= length(s)) then writeln('Можно составить') else writeln('Нелья');                                              

end.

Разъясненье: