как определить количество цифр в числе (паскаль)

Надо преобразовать число в строку с помощью функции STR.
А если нужна не процедура, а функция, то взять вот эту:

function IntToStr(I: Longint): String;
{ Convert any integer type to a string }
var
S: string;
begin
Str(I, S);
IntToStr := S;
end;
Затем просто узнать ее длину c помощью функции length