Program Puzzle_1;
Uses Crt;
Label zx;
Var
x: Array[1..10] of char;
a,b,c:byte;
s:string;
begin
ClrScr;
Write('Vvedite 10 bukv :');
For a:=1 to 10 do
   begin
   Write(a,') ');
   Readln(x[a]);
   end;
Write('vvedite slovo: ');
Readln(s);
For a:=1 to length(s) do
   Repeat
   Inc(b);
   If b>10 then goto zx;
   If s[a]=x[b] then
      begin
      Inc(c);
      x[b]:='#';
      end;
   Until s[a]=x[b];
zx:
If c=length(s)
Then Write('Iz bukv mozhno sostavitj dannoje slovo!')
Else write('Iz bukv nelzja sostavitj dannoje slovo!');
Readln;
end.

Uses Crt;
Var
x: Array[1..10] of char;
a,b:byte;
s:string;

Function CheckChInSt(Ch :Char) : Boolean;
Var c : Byte;
Begin
CheckChInSt:=False;
For c:=1 to 10 do
If Ch=x[c] then CheckChInSt:=True;
End;

begin
ClrScr;
Write('Vvedite 10 bukv :');
For a:=1 to 10 do
begin
 Write(a,') ');
 Readln(x[a]);
end;
Write('vvedite slovo: ');
Readln(s);
For a:=1 to Length(s) do
 If CheckChInSt(s[a]) then Continue else
   Begin
     write('Iz bukv nelzja sostavitj dannoje slovo!');
     Halt(0);
   End;
Write('Iz bukv mozhno sostavitj dannoje slovo!')
end.

For a:=1 to length(s)