Символьный и строковый тип

[TwEEkcs]

Ввести два слова . Определить можно ли из букв первого слова составить второе слово.

[__STDC__]

с утра мой мозг может родить только нечто вроде такого

var
	s1,s2:string;
	x:array['a'..'z'] of integer;
	i:byte;
	j:char;
begin
	readln(s1); readln(s2);
	if (length(s2) > length(s1)) then begin
		writeln('NO');
		readln;
		exit;
	end;
	for j:='a' to 'z' do 
		x[j] := 0;
	for i:=1 to length(s1) do 
		inc(x[s1[i]]);
	for i:=1 to length(s2) do 
		dec(x[s2[i]]);
	for j:='a' to 'z' do
		if (x[j] < 0) then begin
			writeln('NO');
			readln;
			exit;
		end;
	writeln('YES');
	readln;
end.

кстати.. кол-во букв учитывается? например... могу я из набора "aol" составить слово "aolaol"? =) если да, тогда все еще проще..


***
попроще

var
	s1,s2:string;
	i:byte;
begin
	readln(s1); readln(s2);
	for i:=1 to length(s2) do 
		if (pos(s2[i],s1) <> 0) then 
			delete(s1,pos(s2[i],s1),1)
		else begin
			writeln('NO');
			readln;
			exit;
		end;
	writeln('YES');		
	readln;
end.