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.