Programa(free Pascal) Duvida?

[paulocpu]

Como posso resolver isso

5.8- Tem-se um conjunto de dados contendo altura e sexo (masculino, feminino) de 50 pessoas. Desenvolva uma rotina que calcule e exiba:

a. A maior e menor altura do grupo;

b. A média de altura das mulheres;

c. Número de homens.

[Jacino]

program Ajuda;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var N,N1,N2,N3,Ma,Me,A,S:Integer;
begin
N:=0;
N1:=0;
N2:=0;
N3:=0;
Ma:=0;
Repeat
Begin
Writeln('Qual é sua Altura?(cm)');
Readln(A);
Writeln('Qual é seu sexo 1/masculino 2/feminino');
Readln(S);
If S=1 then
N1:=N1+1;
If S=2 then
Begin
N2:=N2+1;
N3:=N3+A;
end;
If A>Ma then
Ma:=A;
If A<Me then
Me:=A;
N:=N+1
end;
Until N=50;
Writeln('O numero de homens Foi ',N1);
Writeln('A maior Altura foi ',Ma);
Writeln('A menor Altura Foi ',Me);
Writeln('A media de altura feminina foi',N3/N2);
Readln;
end.