составить программу которая преобразует слово "абитуриент" в слово "бунт"

Program Slovo;

var

s1,s2: string;

begin

s1:='абитуриент';

s2:=s1[2]+s1[5]+s1[9]+s1[10] ;     //s1[2] = 'Б' s2[5]='у'   s2[9]='н'   s1[10]='т'  

write(s2);

end.