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

Program programma; uses crt; var s, rez: string;     L: integer;     Begin clrscr;       write('Введите слово: ');       readln(s); l:= length(s) ; if l mod 2 =1 then rez:= copy(s,1,(l div 2)) + copy(s,((l div 2)+2),(l div 2)) else rez:= copy(s,1,(l div 2)-1) + copy(s,((l div 2)+2),(l div 2)); writeln(rez); end.