С клавиатуры вводится строка. Определить чётно или нет количество символов в нём. Паскаль

var s:string; l:integer; begin writeln('Введите строку:'); readln(s); l:=length(s); if l mod 2 = 0  then writeln('Количество символов в строке = ',l,' четно')  else writeln('Количество символов в строке = ',l,' нечетно'); end. Пример: Введите строку: Количество Количество символов в строке = 10 четно