uses crt;
var s1,s2:string;
i,j,dem:longint;
begin
  clrscr;
   dem:=0;
        writeln('Nhap vao xau s1: ');readln(s1);
        writeln('Nhap vao xau s2: ');read(s2);
          s1:=upcase(s1);
          s2:=upcase(s2);
              for i:=1 to length(s1) do
                 for j:=1 to length(s2) do
                   if ord(S1[i])=ord(S2[j]) then
                     begin
                         inc(dem);
                           S2[j]:=#32;
                           break;
                     end;
                      if dem=length(s1) then write('Yes') else write('NO');
                                readln;
                                readln;
end.
          Có gì không hiểu bạn cứ hỏi mình nha