Pesquisa entre habitantes

{Foi realizada uma pesquisa entre 150 habitantes de uma cidade. de cada habitante foram
coloetadas dos dados: IDADE, SEXO, RENDA FAMILIAR E NUMERO DE FILHOS. elabore um algoritmo
que o usuario forneça estes dados. Calcule e mostre :
= A média salarial entre os habitantes(entrevistados)
= O total gasto em filhos, sabendo que cada habitante entrevistado dó podera gastar com ele mesmo e
com seus filhos, onde a distribuição de renda deverar ser igual entre todos, por exemplo:
Antonio tem 3 filhos e ganha R$ 1600,00, então cada um deles podera gastar R$ 400,00 ou seja, o gasto
com os filhos fois de R$ 1200,00
= e a quantidade de mulheres com mais de 2 filhos e renda superior a 3 salarios minimos; salario = R$ 545,00}


Program Pzim ;
type
r_hab = record
idade:integer;
sexo:string;
sal:real;
filhos:integer;
end;
var
v_hab:array[1..5] of r_hab;
qtmm2f, pessoas, qtdf, qtdh, i:integer;
gpp, gpf, v_total:real;
 Begin                                              {na solução, tem somente 5 entradas, }
  for i:=1 to 5 do                               {pois digitar 150 ficaria inviavel}
  begin
  writeln('Digite a idade : ');
  readln(v_hab[i].idade);
  writeln('Digite o sexo : ');
  readln(v_hab[i].sexo);
  writeln('Digite o salário : ');
  readln(v_hab[i].sal);
  writeln('Digite a quantidade de filhos : ');
  readln(v_hab[i].filhos);
  clrscr;
  end;
for i:=1 to 5 do
begin
v_total:=v_total+v_hab[i].sal;
qtdh:=qtdh+1;
end;
writeln('A média salario dos habitantes é : R$ ',v_total/qtdh:1:2);
writeln;
for i:=1 to 5 do
begin
pessoas:=v_hab[i].filhos+1;   {calcula a quantidade de filhos mais a quantidade de entrevistados}
gpp:= v_hab[i].sal/pessoas;   {calcula o valor de gasto por pessoa, a renda de cada grupo familiar}
gpf:=gpp*v_hab[i].filhos; {calcula o gasto com os filhos}
writeln('O ',i,'o. entrevistado, gastou com os ',v_hab[i].filhos,' filho(s) foi de R$ ',gpf:1:2);
end;
for i:=1 to 5 do
begin
if ((v_hab[i].sexo='F') and (v_hab[i].sal>1635)) then
begin
qtmm2f:=qtmm2f+1;        {Conta quantas mulheres ganham mais de 3 salarios}
end;
end;
writeln;
writeln('Existem ',qtmm2f,' mulheres com renda salarial maior que 3 Sal. min.');
 End.