В символьной строке посчитать количество символов

Question

В символьной строке посчитать количество символов

Answer 1

var s:string;
k:byte;
begin
readln(s);
k:= length(s);
write(k)
end.

Comments

прост выводит первый символ, а не кол во