Перечислить все слова, которые состоят из тех же букв, что и первое слово - Free Pascal

Var s,s1,s2:string;
    i:byte;
    b:boolean;
Begin
    write('Введите строку: ');readln(s);
    s:=s+' ';
    s1:=Copy(s,1,Pos(' ',s)-1);
    Delete(s,1,Pos(' ',s));
    While Pos(' ',s)>0 do
    Begin
      b:=true;
      s2:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      For i:=1 to Length(s2) do
       if Pos(s2[i],s1)=0 then b:=false;
      if b then writeln(s2);
    End;
    readln;
End.