Тут же цикл, он повторяет дейтсвия...
Посчитай сам, каждый проход даёт +2 к S.
216 в
217 е
218 а
219 в
220 а
221а 222 с 224 е 225 а 226 а 229 D 231 а 232 а 233 с 234 е
в облочке DOC не заню
1710
или я не понял вопроса
При помощи length()
Например так:
ar
s: string;
len: byte;
begin
write('Input string: ');
readln(s);
len := length(s);
writeln('Its lenght is ', len,' characters.');
readln
end.
Здесь s - сама строка, а длина будет выведена в переменной len