Дана строчка. Если ее длина есть число нечетное, то удалить ее

ОТДЕЛ Задание+;
Употребляет Цепь ИЗ "...\Отделы\Другое\";

ПЕР
  строчка, память: РЯД 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 lt;gt;0 
    then delete(s,p,1)
    else insert(a,s,3);
  writeln(s);
end.

-------------Пример 1:----------------
Введите строчку: 1234567
123567

-------------Пример 2:----------------
Введите строку: 123456
12www3456