Как-то так:
//fpc 3.0.0
program HelloWorld;
var
str: string;
begin
// просим строку
writeln('Enter string: ');
readln(str);
// выводим
writeln('Кол-во символов: ', length(str));
end.
Результат отработки в приложении более читабельная версия тут: https://rextester.com/ELPO68615