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