program lenght;
uses crt;
var apeynom: ansiString;
begin
   clrscr;
   
   writeln('Funcion Length ');
   writeln;
   writeln('Inserte su nombre completo:  ');
   
   readln(apeynom);
   writeln;
   write(' Su nombre tiene    ');
   write( length(apeynom), '  letras');
   readkey;
   end.
   
Espero que te sirva..