Помогите с паскалем) Дано слово: 'формирование' Получить слова: ' форма',' мир','…

Var st1,st2,st3,st4,st5,st6: string; Beginst1: ='формирование'; st2: =copy (st1,1,4)+copy (st1,9,1); st3: =copy (st1,4,3); st4: =copy (st1,6,3); st5: =copy (st1,8,3)+copy (st1,10,1)+copy (st1,9,1); st6: ='я'; writeln (st2,',st3,', st4,',st5,st6); End.