Прошу проверить меня
 

легкая задачка: вспоминаю упущенный материал:Составьте программу, чтобы получить произвольные слова, содержащие не менее 5-ти букв, используя не менее 3-х вырезок из данного слова. (Слово-компьютер)
var S1,S2: string [10];
begin
S1:='компьютер';
S2:= copy (S1,4,1)+copy (S1,2,1)+copy (S1,1,1)+copy (S1,8,1)+copy (S1,9,1);
writeln (S2);
end.

Ну проверил получилось «покер»

А так получиться «трюмо»