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

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