Conta caracter e Imprime contador de Letras. Função For, length(Letra).

// conta caracter e Imprime contador de Letras. Função For, length(Letra).

program PrintString;
uses crt;
     var
       nome : string;
       i    : integer;


begin
     write('Digite seu Lindo Nome: ');
     readln(nome);
                  for i := 1  to length(nome) do
                      writeln('letra ',i:3,'  ',nome[i]:3);
readkey;
end.