Дана строка. если количество символов в ней нечетно ,то выведите на экран средний символ строки. паскаль.

 var   
s : string;   
l : integer; 
begin 
readln (s); 
l := Length(s);   
if l mod 2 = 1 then   
writeln (s[l div 2 + 1]); 
end.