Дана строка. известно,что количество символов в строке кратно 3. удалите из слова середину(то есть среднюю треть символов)

Var
  s:string;
  n:integer;
begin
  Writeln('Введите строку с длиной, кратной трем:'); Readln(s);
  n:=Length(s) div 3;
  Delete(s,n+1,n);
  Write('Результат: ',s)
end.

Тестовое решение:
Введите строку с длиной, кратной трем:
Из строки середина будет удалена!
Результат: Из строки ет удалена!