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

var s, t: string;
    i: integer;
    b: set of char;
begin
  b := [];
  write('Sample word? ');
  readln(s);
  write('Test word? ');
  readln(t);
  for i := 1 to length(s) do b := b + [s[i]];
  for i := length(t) downto 1 do if t[i] in b then delete(t, i, 1);
  if length(t) = 0 then writeln('Yes') else writeln('No');
  readln
end.

function puzzle(d, r: string): boolean;
var i: integer;
    b: set of char;
begin
  b := [];
  for i := 1 to length(d) do b := b + [d[i]];
  for i := length(r) downto 1 do if r[i] in b then delete(r, i, 1);
  if length(r) = 0 then puzzle := true else puzzle := false
end;
var s, t: string;
begin
  write('Sample word? ');
  readln(s);
  write('Test word? ');
  readln(t);
  if puzzle(s, t) then writeln('Yes') else writeln('No');
  readln
end.

  for i := 1 to length(s) do b := b + [s[i]];
  for i := length(t) downto 1 do if t[i] in b then delete(t, i, 1);
  if length(t) = 0 then writeln('Yes') else writeln('No');

var s, p, t: string;
    i: integer;
    b: set of char;
begin
  write('First word? ');
  readln(s);
  write('Second word? ');
  readln(p);
  b := [];
  t := p;
  for i := 1 to length(s) do b := b + [s[i]];
  for i := length(t) downto 1 do if t[i] in b then delete(t, i, 1);
  if length(t) = 0 then write('P') else write('Imp');
  writeln('ossible to make the second of the first.');
  b := [];
  t := s;
  for i := 1 to length(p) do b := b + [p[i]];
  for i := length(t) downto 1 do if t[i] in b then delete(t, i, 1);
  if length(t) = 0 then write('P') else write('Imp');
  writeln('ossible to make the first of the second.');
  readln
end.

  if puzzle(s, t) then writeln('1 -> 2: Yes') else writeln('1 -> 2: No');
  if puzzle(t, s) then writeln('2 -> 1: Yes') else writeln('2 -> 1: No');