Решение задач со строками

var s1,s2:string;
begin
s1:='Кузнечик';
writeln(s1);
s2:=chr(ord(s1[6])-32)+s1[5]+'лов'+s1[5]+s1[6]+s1[5]+s1[8];
writeln(s2);
end.

var s:string;//строка т.е. массив символов с именем s
begin
s:='Январь'; // т.к. это массив, то чтобы получить доступ к каждому элементу (букве) нужно в квадратных
                  // скобках написать порядковый номер
                 // s[1] - Я, s[2] - н, s[3] - в, s[4] - а, s[5] - р, s[6] - ь
                  //получаем Февраль
writeln(s,'->'
           'Фе'+   //печатаем буквы Ф,е, т.к. их нет
             //остальные буквы есть (кроме л)
           s[3]+s[5]+s[4]+'л'+s[6]);
end.

var s:string;
begin
s:='Январь';
write(s,'->');
delete(s,1,2);
insert('Фе',s,1);
insert(s[5],s,4);
delete(s,6,1);
insert('л',s,6);
writeln(s);
end.