Используя функции символьных переменных написать слова из частей слова индустриализация

Var a, b, c:string;
Begin
A:=('инду');
B:=('стриал') ;
C:=('изация') ;
Write(a, b, c) ;
End.