Дано слово. Если его длина нечётная, то удалить среднюю букву, в противном случае — две буквы — Pascal(Паскаль)

uses crt;
var st:string;
 
begin
 clrscr;
 write('-> ');
 readln(st);
 if length(st) mod 2 =1 then delete(st,length(st) div 2 + 1,1) else delete(st,length(st) div 2, 2);
 writeln(st);
 readln;
end.