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

{Пусть k - это длина строки, если оно нечетное, то надо удалить средний символ, а его номер равен k Div 2+1.}

program c59;
  uses ctr;
      к: integer;
      st:string;
begin
  clsscr;
  write('st= ');readln(st);
  k: =length(st);
  if k mod 2=1 then
  delete(st,k div 2+1,1);
  writeln(st);
  readln;
end.