Дана строка. Если ее длина есть число нечетное, то удалить ее средний символ. В противном случае после второго символа вставить строку '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:----------------Введите строку: 1234567123567-------------Пример 2:----------------Введите строку: 12345612www3456