Паскаль определить длину строки

Используйте функцию length(), например:

    
var len: Integer;    
begin
 write('Введите строку: ');
 readln(s); // считываем из стандартного потока ввода, например.
 len := length(s); запоминаем длину строки
end;