Определить возможность составления одного данного слова из букв другого данного слова без учета кратности
PASCAL ABC

завтра лабка, помогите люди добрые)

Question

Определить возможность составления одного данного слова из букв другого данного слова без учета кратности 
PASCAL ABC

завтра лабка, помогите люди добрые)

Иван Жучков · Accepted Answer

var w1,w2:string; i:integer; b:boolean; 
begin 
write('Word 1:'); readln(w1); 
write('Word 2:'); readln(w2); 
b:=true; 
for i:=1 to length(w1) do if pos(w1[i],w2)=0 then b:=false;
writeln(b) 
end.

Определить возможность составления одного данного слова из букв другого данного слова без учета кратности PASCAL ABC