можно ли из букв входящих в строку s1 составить строку s2

uses crt;
var s1,s2:string;
i:integer;
f:boolean;
 
begin
 clrscr;
 write('S1 -> ');
 readln(s1);
 write('S2 -> ');
 readln(s2);
 f:=true;
 for i:=1 to length(s2) do if pos(s2[i],s1)>0 then delete(s1,pos(s2[i],s1),1) else
 begin
  f:=false;
  break;
 end;
 if f then write('Можно') else write('Нельзя');
 readln;
end.

var
  (*Первая, вторая строка и строка для цикла повтора.*)
  Str1, Str2, StrTmp : String;
  (*Множества символов первой и второй строки.*)
  S1, S2 : set of Char;
  (*Счётчик для циклов.*)
  i : Integer;
begin
  repeat
    Writeln('Введите первую строку:');
    Readln(Str1);
    Writeln('Введите вторую строку:');
    Readln(Str2);
 
    for i := 1 to Length(Str1) do S1 := S1 + [ Str1[i] ];
    for i := 1 to Length(Str2) do S2 := S2 + [ Str2[i] ];
 
    if S2 - S1 = [] then
      Writeln('Из символов первой строки можно составить вторую строку.')
    else
      Writeln('Из символов первой строки нельзя составить вторую строку.')
    ;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(StrTmp);
  until StrTmp <> '';
end.