Дана строка. Если ее длина есть число нечетное, то удалить ее средний символ. В противном случае после второго символа вставить строку 'www'

ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Цепь ИЗ "...\Отделы\Иное\"; ПЕР   строка, память: РЯД 100 ИЗ ЗНАК;   сч: ЦЕЛ; УКАЗ   ЕСЛИ ЧЕТ(ДЛИНА(строка)) ТО     память[0] := строка[0];     память[1] := 0X;     Цепь.Добавить(память, "www");     ОТ сч := 1 ДО ДЛИНА(строка) - 1 ВЫП       память[сч + 3] := строка[сч]     КОН;     память[ДЛИНА(строка) + 3] := 0X   ИНАЧЕ     ОТ сч := 0 ДО ДЛИНА(строка) ДЕЛИТЬ 2 - 1 ВЫП       память[сч] := строка[сч]     КОН;     ОТ сч := ДЛИНА(строка) ДЕЛИТЬ 2 + 1 ДО ДЛИНА(строка) - 1 ВЫП       память[сч - 1] := строка[сч]     КОН;     память[ДЛИНА(строка) - 1] := 0X   КОН КОН Задание.

var    s,a: string;    p: integer; begin   write('Введите строку: ');   readln (s);   a:='www';   p:=length(s) div 2 +1;   if length(s) mod 2 <>0      then delete(s,p,1)     else insert(a,s,3);   writeln(s); end. -------------Пример 1:---------------- Введите строку: 1234567 123567 -------------Пример 2:---------------- Введите строку: 123456 12www3456