Felipe Ribas_614027

Implementar o seguinte exercício com o ambiente Delphi, focando a programação com estruturas de seleção e repetição. Uma empresa decidiu fazer um levantamento em relação aos candidatos que se apresentaram para preenchimento de vagas no seu quadro de funcionários. Fazer um programa que leia o conjunto de informações de cada candidato, contendo:  Idade(em anos)  Sexo (1=M / 2=F)  Experiência no serviço (1=S / 2=N). O programa deve calcular : 1. Quantidade de candidatos do sexo feminino; 2. Quantidade de candidatos do sexo masculino ; 3. Idade media dos homens com experiência no serviço ; 4. Porcentagem dos homens com mais de 45 anos, em relação ao total de homens ; e 5. Quantidade de mulheres com idade inferior a 35 anos e com experiência no serviço desde já obg.

Olá alguem poderia me ajudar, meu código precisa de alguns contadores mas quando compilo ele não acrescenta no contador. {$APPTYPE CONSOLE}uses SysUtils;var idade, somaidade,contf, contm, maiorm, menorf, conth45, contf35 :integer; sexo, exp: string;begin somaidade := 0 ; contf := 0; contm := 0; maiorm := 0; menorf := 0; conth45 := 0; contf35 := 0; writeln (' digite M para masculino ou F para feminino 0 para sair '); readln (sexo); while (sexo <> '0') do begin writeln ( ' Informe sua idade '); readln( idade); somaidade := somaidade + idade; writeln( ' Experiencia S/N '); readln (exp); if (sexo = 'M') then begin contm:= contm +1; end; if (exp = 'S') and (idade > 45) then begin somaidade := somaidade + idade; conth45 := conth45 + 1; end else if ( sexo = 'F') then begin contf:= contf +1; end; if (exp = 'S') and (idade < 35) and ( sexo = 'F') then begin somaidade := somaidade + idade; contf35 := contf35 + 1; end; writeln (' digite M para masculino ou F para feminino 0 para sair '); readln (sexo); end; writeln( ' Quantidade de candidato sexo feminino ', contf ); writeln( ' Quantidade de candidato sexo masculino ', contm ); readln;end.