Программа считывает символы и затем запрашивает строку на ввод. Проверяет можно ли из введенных символов составить данную строку — Pascal(Паскаль)

program fifty_four;
uses crt;
var
mas:Array[1..10]of Char;
s,s2:String;
i,b:Byte;
begin
clrscr;
Writeln('Введите 10 символов:');
for i:=1 to 10 do
begin
write('№',i,': ');
readln(mas[i]);
end;
write('Введите строку: ');
readln(s);
for i:=1 to Length(s) do
 for b:=1 to 10 do
  if s[i]=mas[b] then
   begin
    s2:=s2+mas[b];
    mas[b]:=' ';
    b:=10;
   end;

if s2=s then write('Из этих символов можно составить слово ',s)
else write('Из этих символов нельзя составить слово ',s);
readln;
end.