LP - Exercício com estrutura de repetição While - Pascal

Program Pzim ;

var xpessoas,limite,qtdm,pesao,baixa:integer;
    sexo:string;
    altura,peso:real;
   
Begin
    qtdm:=0;
    limite:=0;
    pesao:=0;

    write('Quantas pessoas passaram pelo posto de saúde hoje...: ');
    read(xpessoas);
   
    while (limite < xpessoas) do
      Begin
     
        write('Digite "m" para sexo masculino e "f" para feminino..: ');
        read(sexo);
       
        if (sexo='m') then
          qtdm:=qtdm+1;
   
   
        write('Digite sua altura...: ');
        read(altura);
     
        write('Digite seu peso.....: ');
        read(peso);
       
        if((sexo='m')and(peso>50))Then
          pesao:=pesao+1;

        if((sexo='f')and(baixa<1.80))Then
          baixa:=baixa+1;
       
        limite:=limite+1;
       
        writeln ('================================================');
       
      end;

    writeln('Passaram ',xpessoas,' pessoas pelo posto hoje.');
    writeln('Passaram ',qtdm,' pessoas do sexo masculino pelo posto.');
    writeln('Passaram ',pesao,' pessoas acima de 50 Kls do sexo masculino');
    writeln('Passaram ',baixa,' pessoas do sexo feminino menor que 1.80 m');
   
End.