Exercicio 2 de Heterogenea

Program Pzim ;
{Foi realizada uma pesquisa entre 20 habitantes de uma cidade. De cada habitante foram
coletados os dados: idade, sexo, renda familiar e número de filhos. Faça um programa que
leia esses dados, armazenando-os em um vetor. Calcule e mostre a média de salário entre
habitantes, a menor e a maior idade do grupo e a quantidade de mulheres com mais de
dois filhos}

type
    r_habitante = record
        idade:integer;
        sexo:char;
        salario:real;
        nfilhos:integer;
    end;

var
    v_habitante:array[1..4] of r_habitante;
    salmedio, somasal:real;
    maiorid, menorid, qtdm2f, i:integer;       

 Begin
     somasal:=0;
     qtdm2f:=0;
     for i:=1 to 4 do
         begin
             writeln('Digite a idade : ');
             readln(v_habitante[i].idade);       //variavel habitante, na posição [i]. idade
             writeln('Digite o sexo : ');
             readln(v_habitante[i].sexo);        //variavel habitante, na posição [i]. sexo
             writeln('Digite o valor do Salário : ');
             readln(v_habitante[i].salario);    //variavel habitante, na posição [i]. salario
             writeln('Digite a quantidade de filhos : ');
             readln(v_habitante[i].nfilhos);    //variavel habitante, na posição [i]. numero de filhos
             clrscr;           // limpa a tela
         end;
        
        
    for i:=1 to 4 do
        begin
            if (i=1) then
                 begin
                     maiorid:=v_habitante[1].idade;
                     menorid:=v_habitante[1].idade;
                 end;
         end;
         {atribui as variaveis maior idade e menor idade o valor que existe na variavel habitante, na posição [i]=1. idade}
        
     for i:=1 to 4 do
         begin
             if (v_habitante[i].idade>maiorid) then
                 begin
                     maiorid:=v_habitante[i].idade;
                 end;
             if (v_habitante[i].idade<menorid) then
                 begin
                     menorid:=v_habitante[i].idade;
                 end;
             if ((v_habitante[i].sexo = 'm') or (v_habitante[i].sexo = 'M') and (v_habitante[i].nfilhos>2)) then
                 begin
                     qtdm2f:=qtdm2f+1
                 end;
             somasal:=somasal+v_habitante[i].salario;                
         end;
        
        
         writeln('A média de salário é: ', somasal/4);
         writeln('A menor idade é: ', menorid);
         writeln('A maior idade é: ', maiorid); 
         writeln('A quantidade de mulheres com mais de dois filhos é : ', qtdm2f);        
 End.