Здравствуйте, Буянов Антон Иванович!
Вариант получения заданных слов с использованием строковых функций приведен в приложении.

Приложение:
uses crt;
var s,s1:string;
c:char;
i:byte;
begin
clrscr;
s:='программирование';
writeln('Исходное слово:');
writeln(s);
writeln('Сформированные слова:');
{копируем буквы 4 и 5, добавляем 3 и 7}
s1:=copy(s,4,2)+s[3]+s[7];
writeln(s1);
{копируем буквы с 4 по 8}
s1:=copy(s,4,5);
writeln(s1);
{копируем 5 и 6+ 12..14}
s1:=copy(s,5,2)+copy(s,12,3, получаем раван);
{переворачиваем слово}
for i:=1 to length(s1) div 2 do
begin
c:=s1[i];
s1[i]:=s1[length(s1)-i+1];
s1[length(s1)-i+1]:=c;
end;
writeln(s1);
readln
end.

Здравствуйте, Буянов Антон Иванович!
Вот мой вариант решения вашей задачи.
Идея такая:
1)Функция search_lexem получает в качестве параметров исходное слово и слово, которое требуется получить.
2)Она ищет лексемы(буквы) в основном слове и если находит присутствие всех, то она принимает значение true
в противном случае false.

Спецификация функции search_lexem:
1)function search_lexem(s,s1:string):boolean;
2)Функция возвращает true, если слово s1 можно определить
в слове s путем поиска в слове s лексем слова s1, в противном случае функция возвращает false.
3)Входные парамаметры:s,s1;
Выходные параметры:нет.

Преимущества:
1)Не требуется знания расположения букв в исходном слове.
2)Работает с любыми словами в которых до 255 символов.
3)Если требуется вывод слова, то он лекго дописывается условием:


Вот код:


Тестовые данные:


Все тестировал на ABC паскале. Если чтото не понятно, то пишите, поправлю!
Удачи!