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

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 четно