Duvida Execicio em Pascal

[jose96]

Alguem Por favor poderia resolver 2 exercicios em pascal para min, so falatam eles e nao estou conseguindo.
Ajuda por favor.

1. Faça um programa que leia um número indeterminado de nome e idade de pessoas, idades sempre positivas (usando repetição). Quando a idade 0 for digitada, a repetição deve ser interrompida, e esta idade 0 não deve ser computada. Ao final, o programa deverá escrever quantas pessoas foram lidas, calcular e escrever a soma e a média de idade do grupo de idades lidas. (1 ponto)

2. Faça um programa para ler a altura e o sexo ([f]eminino, [m]asculino) de 20 pessoas. Calcular e escrever: (1,5 pontos)
a. A maior e a menor altura;
b. A média de altura das mulheres e a média de altura dos homens;
c. O número de homens e o número de mulheres.

[rafachinelato]

Exercício 1 feito!
Program idade_media ;
var
qtdpessoa,idade,somaid:integer;
nome:string;
media:real;
Begin
idade:=1;
somaid:=0;
qtdpessoa:=0;
while idade <> 0 do
begin
write ('digite a idade: ');
readln (idade);
if idade <> 0 then
begin
qtdpessoa:=qtdpessoa+1;
write ('digite o nome da pessoa: ');
readln (nome);
somaid:=somaid+idade;
end;
end;
media:=(somaid/qtdpessoa);
writeln ('A média de idade do grupo é: ',media:2:2);
writeln ('A quantidade de pessoas é: ',qtdpessoa);
End.

[Soultt]

bom não sei se ainda serve depois de quase um mes mais foi que entrei hoje no forum então a solução do segundo ai

Program exe2;
var
sexo: string;
contM,contF,x,altura,maior,menor: integer;
medaltF,medaltM,altM,altF,resm,resf: real;

Begin
contF:= 0;
ContM:= 0;
altM:= 0;
altF:= 0;
maior:= 0;
menor:= 999;
for x:= 1 to 20 do
begin
Writeln('Qual seu Sexo ? (F ou M)');
readln(sexo);
Writeln('Qual sua altura? em cm (ex: 175)');
readln(altura);

if altura > maior then
maior:= altura;
if altura < menor then
menor:= altura;
if (sexo = 'F') or (sexo = 'f') then
begin
contF:= contf+1;
altF:= altf+altura;
end;
if (sexo = 'M') or (sexo = 'm') then
begin
contM:= contM+1;
altM:= altM+altura;
end;
end;
resm:= altm / contm;
resf:= altf / contf;
writeln('Masculino: ',contM,' Feminino: ', ContF,' Media Masculina: ',resm:0:2,' Media Feminina: ', resf:0:2);
writeln('A Maior Alura: ', Maior,' A menor altura: ', Menor);
End.

// Descupa a falta de identação isso nunca foi meu forte mais acho que tá bom qualquer duvida só perguntar, boa sorte