Pascal/Delphi Contador de caracteres em um nome

[Fábio Júnior Miranda]

Boa tarde a todos, estou tendo um problema com um código em Pascal que conta a quantidade de caracteres de um nome e se caso o nome estiver acima de 20 caracteres o programa tem que exibir a mensagem "Nome grande". Segue abaixo o código:

 

Program Exercicio4 ;
var
   nome, primeiro : String;
   i, tamanho, esp, letras : integer;
Begin
   writeln('Digite o nome no maximo 20 caracteres');
   readln(nome);
   primeiro := nome;
   
   esp := 0;
   letras := 0;
   tamanho := length(nome);
            
            for i:= 1 to letras do
         begin
            if (nome[i]) = ' ' then
               esp := esp + 1
         end;
         
      If nome[1] dif ' ' then
         letras := 1;
         for i := 2 to esp do
            begin
               If (nome[i]) = ' ' then
                  letras := letras + 1
                  
                  else
                     begin
                        If (nome[i]) > '20' then
                           begin   
                                    writeln('Nome grande');                     
                           end;
                        end;
                     end;          
      writeln('O nome contem: ', tamanho, ' letras, contado com os espacos entre o nome e o sobrenome.');

End.

 

[Simon Viegas]

20 horas atrás, Fábio Júnior Miranda disse:

estou tendo um problema com um código em Pascal

 

Qual problema?

adicionado 8 minutos depois

Por favor, também poste o enunciado completo.

[Thiago Miotto]

Em 15/09/2020 às 16:05, Fábio Júnior Miranda disse:

esp := 0;
letras := 0;
tamanho := length(nome);
for i:= 1 to letras do

For i de 1 a 0? Acho que você se confundiu neste for, seria tamanho no lugar de letras