Вспомним игру: «Придумай слово», в которой из букв слова-донора составляют другие…

Prime: ={ Получаем первое слово из последовательности }; while { не конец последовательности (не известно от куда аффтар получает слова) } do begin Slovo: ={ Получаем очередное слово последовательности }; if Length (Slovo) <= Length (Prime) then begin CopyPrime: =Prime; N: =1; while (N <= Length (Slovo) and (Pos (Slovo[N], CopyPrime) > 0 do begin Delete (CopyPrime, Pos (Slovo[N], CopyPrime) , 1); Inc (N); end; if N > Length (Slovo) then { Slovo можно получить из первого слова } else { нельзя получить Slovo из первого слова } end; end;