Pascal/Delphi Preciso fazer um algoritmo em Pascal que some a idades

[Alan27895]

Tem que somar as idades maiores de 18 anos e as idades menores de 18 anos e mostrar os dois resultados ao usuário, mas tem que usar o comando Type.

Estou aprendendo a programar, eu tentei fazer, só que o programa não esta executando corretamente, alguém pode me ajudar e falar onde que eu estou errado.

Program Maiores_e_Menores_de_Idade;
Type Idades=Integer;
Var Idade,SomaMaior,SomaMenor:Idades;
    Cont:Integer;

 Begin
     SomaMaior:=0;
     SomaMenor:=0;
     For Cont:=1 to 10 do
     Begin
          Writeln('Digite a idade ',Cont);
          Readln(Idade);
          
          If Idade>=18 Then
          Begin
              SomaMaior:=SomaMaior+Idade;    
          end
          Else
          Begin
              SomaMenor:=SomaMenor+Idade;
          end;
      end;
          Writeln('A soma dos maiores de idade e:',SomaMaior);
          Writeln('A soma dos menores de idade e:',SomaMenor);
          Readln;
 End.

 

[Reinaldo Oliveira]

Pelo que eu vejo, está tudo correto, eu copiei e colei seu codido no Pzim e funcionou perfeitamente.

[Simon Viegas]

Em 28/07/2020 às 14:48, Alan27895 disse:

Tem que somar as idades maiores de 18 anos e as idades menores de 18 anos e mostrar os dois resultados ao usuário, mas tem que usar o comando Type.

Estou aprendendo a programar, eu tentei fazer, só que o programa não esta executando corretamente, alguém pode me ajudar e falar onde que eu estou errado.

 

O que não está executando corretamente?

 

Além disso, poste o enunciado completo para analisarmos melhor.