Здесь всё можно сделать через копирование части слова и конкатенации (склеивания) частей, например, так: program z; var str:string; begin str:='ЦВЕТОВОДСТВО'; writeln(copy(str,1,4)); {копировать из строки, начиная с 1 символа, 4 буквы} writeln(copy(str,5,4)); {копировать из строки, начиная с 5го символа, 4 буквы} writeln(copy(str,8,1)+copy(str,3,2)+copy(str,9,4)); writeln(copy(str,6,3)+'А'); end.
program z;
var str:string;
begin
str:='ЦВЕТОВОДСТВО';
writeln(copy(str,1,4)); {копировать из строки, начиная с 1 символа, 4 буквы}
writeln(copy(str,5,4)); {копировать из строки, начиная с 5го символа, 4 буквы}
writeln(copy(str,8,1)+copy(str,3,2)+copy(str,9,4));
writeln(copy(str,6,3)+'А');
end.