program CadastroFuncionarios;
 
var
  matricula: integer;
  idade: integer;
  sexo: char;
  altura: double;
  concursado: char;
  contConcursada: integer = 0;
  contFuncionarioHomens: integer = 0;
  homemMaisVelho: integer = 0;
  qtdMulheresMaisTrintaAnosSemConcurso: integer = 0;
  qtdConcursados: integer = 0;
  mediaAlturaHomensMenos40Anos: Double;
  contHomensMenos40Anos: integer = 0;
  SomaAlturaHomensMenos40Anos: double = 0;
begin
  WriteLn(Utf8ToAnsi('Programa Cadastro de funcionários - Show Delphi'));
  WriteLn('');
  WriteLn(Utf8ToAnsi('Para parar de cadastrar, informe 0 na matrícula.'));
  WriteLn('');
  WriteLn('');
 
  repeat
    Write(Utf8ToAnsi('Informe a matrícula: '));
    ReadLn(matricula);
 
    if matricula > 0 then
    begin
      Write('Informe a idade: ');
      ReadLn(idade);
 
      Write('Informe o sexo: ');
      ReadLn(sexo);
      sexo := upcase(sexo);
 
      Write('Informe a altura: ');
      ReadLn(altura);
 
      Write(Utf8ToAnsi('É concursado?: '));
      ReadLn(concursado);
      concursado := upcase(concursado);
 
      // a) o número de funcionárias concursadas;
      if (sexo = 'F') and (concursado = 'S') then
      begin
        contConcursada := contConcursada + 1;
      end;
 
      // b) o número de funcionários (somente homens);
      if (sexo = 'M') then
      begin
        contFuncionarioHomens := contFuncionarioHomens + 1;
 
        if idade > homemMaisVelho then
        begin
          // c) a maior idade dos homens concursados;
          homemMaisVelho := idade;
        end;
 
        // contando os homens com menos de 40 anos e somando a altura para calcular a média
        // f) a média das alturas dos homens com menos de 40 anos.
        if idade < 40 then
        begin
          SomaAlturaHomensMenos40Anos:= SomaAlturaHomensMenos40Anos + altura;
          contHomensMenos40Anos := contHomensMenos40Anos + 1;
        end;
      end;
 
      // d) a quantidade de mulheres com mais de 30 anos sem concurso;
      if (sexo = 'F') and (concursado = 'N') and (idade > 30) then
      begin
        qtdMulheresMaisTrintaAnosSemConcurso := qtdMulheresMaisTrintaAnosSemConcurso + 1;
      end;
 
      // e) a quantidade de concursados(as);
      if (concursado = 'S') then
      begin
        qtdConcursados := qtdConcursados + 1;
      end;
    end;
 
    WriteLn('------');
  until (matricula = 0);
 
  // f) a média das alturas dos homens com menos de 40 anos. Calculando Média
  mediaAlturaHomensMenos40Anos := 0;
  if contHomensMenos40Anos > 0 then
  begin
    { teste para evitar divisão por zero. }
    mediaAlturaHomensMenos40Anos:= SomaAlturaHomensMenos40Anos / contHomensMenos40Anos;
  end;
 
  WriteLn('');
  WriteLn(Utf8ToAnsi('Relatório'));
  WriteLn('');
 
  WriteLn(Utf8ToAnsi('O número de funcionárias concursadas é: '), contConcursada);
  WriteLn(Utf8ToAnsi('O número de funcionários (somente homens) é: '), contFuncionarioHomens);
  WriteLn(Utf8ToAnsi('A maior idade dos homens concursados é: '), homemMaisVelho);
  WriteLn(Utf8ToAnsi('A quantidade de mulheres com mais de 30 anos sem concurso é: '), qtdMulheresMaisTrintaAnosSemConcurso);
  WriteLn(Utf8ToAnsi('A quantidade de concursados(as) é: '), qtdConcursados);
  WriteLn(Utf8ToAnsi('A média das alturas dos homens com menos de 40 anos é: '), mediaAlturaHomensMenos40Anos :0:2);
 
  WriteLn('');
  WriteLn('Enter para fechar o programa');
  ReadLn;
end.