Дана строка , найти её длину и вывести 5-й элемент строки!!!

var s: string;
begin
readln(s); writeln('length=',length(s),' , 5-th element=',s[ 5]); readln
end