Выясните, верно ли, что в заданном предложении P есть все буквы, входящие в заданное слово S — Pascal(Паскаль)

var s,p:string;
    i:longint;
    a:array[0..255] of longint;
begin
  readln(s);
  readln(p);
 
  for i:=1 to length(s) do
    a[ord(s[i])]:=a[ord(s[i])]+1;
 
  for i:=1 to length(p) do
    a[ord(p[i])]:=a[ord(p[i])]-1;
 
  for i:=0 to 255 do if a[i]<0 then begin
    write('NO');
    halt;
  end;
  writeln('YES');
end.