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.