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

Var s:string;
begin
write('Введите слово: ');
readln(s);
writeln('Количество символов = ',length(s));
end.

Пример:
Введите слово: клавиатура
Количество символов = 10