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

[Натуличка]

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

легкая задачка: вспоминаю упущенный материал:Составьте программу, чтобы получить произвольные слова, содержащие не менее 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.

 

[interacia]

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

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

 S2:= copy (S1,7,1)+copy (S1,9,1)+copy (S1,6,1)+copy (S1,3,1)+copy (S1,2,1);