очень лень писать, дам направление как составлять слова из данного на языке, кстати способ очень глупый, я думаю если начнешь делать сам, то ты меня поймешь
var s,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10:string;
begin
s:='перестройка';
writeln(s[5]+s[6]+s[7]+s[8]+s[9]+s[10]+s[11]); //получится слово стройка
writeln....
ну и так далее, удачи