Bom eu faria assim! var
cont,idade:integer;
sexo:char;
maioraltura,maispesada,peso,altura,mediatotal:real;
nome:string;
begin
cont:=0;
maioraltura:=0;
maispesada:=0;
while sexo <> '0' do
begin
write('Digite seu sexo, 1 p/ masculino e 2 p/ feminino, ou 0 p/ sair: ');
readln(sexo);
if (sexo = '1') or (sexo = '2') then
begin
cont:=cont+1;
write('Digite seu nome: ');
readln(nome);
write('Digite sua idade: ');
readln(idade);
write('Digite seu peso: ');
readln(peso);
write('Digite sua altura: ');
readln(altura);
mediatotal:=mediatotal + idade;
if sexo = 1 then
if maioraltura < altura then
maioraltura:= altura;
else
if maispesada < peso then
maispesada:= peso;
end;
end;
writeln('A maior altura entre o homens foi de ',maioraltura);
writeln('A mais pesada entre as mulheres foi de ',maispesada);
writeln('A media de idade foi de ',mediatotal / cont);
end.
