При операций копирования и склейки из слова "жемчужина" составить слова "чужие", "муж"

Пример решения
[640, 480, 4]
Объем памяти = 640 * 480 пикселей * 4 бит = 1228800 бит = 1228800 / 8 / 1024 Кбайт = 150.0 Кбайт ~= 150 Кбайт

Таблица
640 x 480 * 4 = 150.0  Кбайт
640 x 480 * 8 = 300.0  Кбайт
640 x 480 * 16 = 600.0  Кбайт
640 x 480 * 24 = 900.0  Кбайт
640 x 480 * 32 = 1200.0  Кбайт
800 x 600 * 4 = 234.375  Кбайт
800 x 600 * 8 = 468.75  Кбайт
800 x 600 * 16 = 937.5  Кбайт
800 x 600 * 24 = 1406.25  Кбайт
800 x 600 * 32 = 1875.0  Кбайт
1024 x 768 * 4 = 384.0  Кбайт
1024 x 768 * 8 = 768.0  Кбайт
1024 x 768 * 16 = 1536.0  Кбайт
1024 x 768 * 24 = 2304.0  Кбайт
1024 x 768 * 32 = 3072.0  Кбайт
1280 x 1024 * 4 = 640.0  Кбайт
1280 x 1024 * 8 = 1280.0  Кбайт
1280 x 1024 * 16 = 2560.0  Кбайт
1280 x 1024 * 24 = 3840.0  Кбайт
1280 x 1024 * 32 = 5120.0  Кбайт

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;