duvida em pascal

[tremelique]

Faça um programa Pascal que leia números inteiros do teclado, até que um número negativo seja digitado, e escreva na tela:

(a) quantos foram os números pares lidos;

( quantos foram os números ímpares lidos;

© a média dos números pares;

(d) a média dos números ímpares;

(e) o maior número positivo lido;

(f) o menor número positivo lido.

eu fiz desse jeito :

eu queria saber o que falta?

o código e esse:

program Untitledq2_ad1;
uses
  crt;
var
  cont,
  n,
  numpares,numimpares,
  maior, segundomaior,
  menor, segundomenor  :integer;

  Fim : boolean;

begin
Fim:=false;
cont:=0;
maior:=0;

menor:=MaxInt;

numpares:=0;
numimpares:=0;
writeln(output,' Digite valores, para terminar a execuçao insira um numero negativo.');
While not Fim do
     begin
       write(output, 'Digite um valor: ');
       readln(input, n);
     if n < 0 then    
        Fim := true
    else
    begin

   if (n mod 2=0) then
   numpares:=numpares +1
   else
   numimpares:=numimpares + 1;
   end;


  begin
  if (n mod 2 =1) then
   numimpares:=numimpares+1;
  end;
   begin
    cont:= cont + 1;
    if n >= maior then
      begin

      maior := n
      end
    else
      if n <= menor then
        begin

        menor:= n
        end

    end;
  end;

begin
  writeln(output,'quantidade de numeros pares',numpares);
  writeln(output,'quantidade de numeros impares',numimpares);
  writeln(output, 'O maior valor é : ', maior );

  writeln(output, 'O menor valor é : ', menor);
  readln;
  end;

end.

[Simon Viegas]

Olá tremelique

Eu queria saber o que falta

Falta pouca coisa... sugiro que faça o seguinte: insira uns 6 números e teste cada uma das alíneas do enunciado, verificando se o valor "real" (feito mentalmente ou num papel) é igual a resultado informado no programa. Caso dê errado, reanalise o código e tente corrigir.

Daí, caso tenha alguma dúvida mais específica, é só postar!

DICA: Tente resolver uma alínea de cada vez. Qualquer coisa tente refazer o código, respondendo de um em um, em vez de fazer tudo de uma vez e testar tudo de uma vez...

No aguardo.