Если длина строки нечетное число, то удалить среднюю букву — Pascal(Паскаль)

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.