Программирование.Паскаль. Дано слово вывести количество букв в слове

допустим слово ввели в программу так read(s); где s - переменная типа string тогда для s справедливо выражение a:=length(s); где a - переменная типа integer библиотечная функция Length() возвращает длину строки. А длина строки в свою очередь и есть кол-во букв в слове Итак код //----------- program one; var s:string; a:integer; begin Write('Введите слово:'); readln(s); a:=length(s); write('Кол-во букв в слове=',a); end.