murilobrito comentou em 08-03-2011

não consigo concluir esse programa quando tento executar aparece a seguinte mensagem "a cadeia deve ser fechada antes do fim" mas não sei o que fazer ? será que alguém pode me ajudar? {5) Elabore um programa que solicite ao usuário o nome, sexo e salário de 30 funcionários. O seu programa deverá determinar e escrever: a) qual o maior salários das mulheres; b) média de salário das mulheres; c) nome e salários de todos os funcionários do sexo masculino cujo salário é superior a média geral dos salários; d) nome das mulheres cujo o salário é superior a média dos salários das mulheres } Program Pzim ; var nome:array[1..30] of string; sexo:array[1..30] of string; salario:array[1..30] of real; medtotal,somahom,somamul:real; Begin medtotal:=0; somahom:=0; somamul:=0; for cont:=1 to 30 do begin write ('informe o nome: '); read (nome[cont]); write ('informe o sexo: '); read (sexo[cont]); write ('informe o salario: '); read (salario[cont]); soma:=soma+salario[cont]; if (sexo='f') or (sexo='F') then begin somamul:=somamul+salario[cont]; qtmul:=qtmul+1; end; if (sexo='m') or (sexo='M') then begin somahom:=somahom+salario[cont]; qthom:=qthom+1; end; medtotal:=somahom+somamul/qtdtotal; medmul:=somamul/qtmul; end ; begin if (sexo='m') or (sexo='M') and (salario[cont]>medtotal) then writeln (nome[cont],'possui salário maior que a média geral'); if (sexo='f') or (sexo='F') and (salario[cont]>medmul) then writeln (nome[cont],'possui salário maior que a média do salário das mulheres); end;