Массивы. Возможно ли из символов, введенных в массив составить заданную строку

program P1;     
var           
     S:string;  
     A:array [1..10] of char;
     err:boolean;     
     i,j,n:integer;
     label 10;
begin
  err:=false; 
  writeln ('Введите элементы массива');  
  for j:=1 to 10 do 
  readln(A[j]);
  writeln ('Введите строку');      
  readln(S);
  n:=0;
  10:for i:=1 to length(S) do       
      for j:=1 to 10  do           
          if S[i]=A[j]then 
          begin
              A[j]:=' ';
              inc(n);
               Goto 10;
          end
             else                  
                 begin
                   if n=10 then 
                   err:=true;
                 end;
       If err then
        writeln('возможно составить строку из заданных элементов массива') 
       else 
        writeln('невозможно составить строку из заданных элементов массива');
end.

program P1;
var
  S:string;
  A:array [1..10] of char;
  i,j,k,n:integer;
begin
  writeln ('Введите элементы массива');
  for j:=1 to 10 do
    readln(A[j]);
  writeln('Введите строку');
  readln(s);
  n:=0;k:=length(s);
  for i:=1 to length(S) do
    for j:=1 to 10 do
      if S[i]=A[j]then begin
        inc(n);
        break;
      end;
      If n=k then
        writeln('возможно составить строку из заданных элементов массива')
      else
        writeln('невозможно составить строку из заданных элементов массива');
  readln;
end.