Programa para obter o numero do I ching da personalidade do individuo em pascal

{programa numero I Ching Fiz esse programinha usando o método 2 do livro
 “Feng Shui e a Astrologia” de cálculo para obter o numero do I ching da
 personalidade do individuo. Funcionamento bem simples, o usuario digita
 o ano do seu nascimento e o programa retorna o numero.}

program anoIChing;

Uses CRT;

var
  cAno: Array [1..4] of char; {ano em caracter, pois readkey só funciona com este}
  iAno: Array [1..4] of integer; {vou converter o caracter para inteiro para fazer conta}
  iChing, iSoma, c: integer; {simples contador}

{Esse trecho somente PEGA e CONVERTE o que o ano que o usuario digita}

Procedure entraAno;

begin
  For c:=1 to 4 Do
    Begin
      cAno[c]:=readkey;
      Case cAno[c] of
'0': iAno[c]:=0;
'1': iAno[c]:=1;
'2': iAno[c]:=2;
'3': iAno[c]:=3;
'4': iAno[c]:=4;
'5': iAno[c]:=5;
'6': iAno[c]:=6;
'7': iAno[c]:=7;
'8': iAno[c]:=8;
'9': iAno[c]:=9;
      end;
      write(cAno[c]);
   end;
end;

{Esse trecho somente IMPRIME o que o ano que o usuario digita}

Procedure imprimeAno;

Begin
   For c:=1 to 4 Do
     Begin
write(iAno[c]);
     end;
end;

{Esse trecho somente SOMA todos os digitos de ano}

Procedure SomaAno;

Begin
   iSoma:=0;
   For c:=1 to 4 Do
     Begin
iSoma:=iAno[c]+iSoma;
     end;
end;

{Esse trecho somente SOMA a SOMA de todos os digitos de ano}

Procedure obtemIChing;

var
   d, u, s: integer;

Begin
   d:=ISoma div 10;
   u:=ISoma mod 10;
   s:=d+u;
   iChing:=11-s;
   write('I Ching   ', iChing, '  ');
end;


Procedure descreveIChing;

Begin
    Case iChing of
1: Begin{agua}
          write('Agua (yin)');
End;
2: Begin{Terra}
          write('Terra (yin)');
End;
3: Begin{Arvore}
  write('Arvore (yin)');
End;
4: Begin{Arvore}
  write('Terra (yin');
End;
5: Begin{Terra}
  write('Terra (yine yang)');
       End;
6: Begin{Metal}
  write('Metal (yiang)');
End;
7: Begin{Metal}
  write('Metal (yiang)');
End;
8: Begin{Terra}
  write('Terra (yaing)');
End;
9: Begin{Fogo}
      write('Fogo (yiang)');
End;
end;
end;


{  P R I N C I P A L  }

Begin
   writeln; writeln; writeln;
   Write('Digite o ano de seu nascimento   :  ');entraAno;
   writeln;
   write('o numero que vc digitou foi :   ' ); imprimeAno;
   writeln;
   writeln;
   somaAno;
   writeln;
   obtemIChing;
   descreveIChing;
   writeln;
   writeln;
   writeln;
   writeln;
   writeln;
End.