Задача на массив, язык PASCAL, ПОМОГИТЕ ПОЖАЛУЙСТА

program p1;
var a:array[1..100]of integer; n,i,m,s:integer;
begin
write('n: '); readln(n);
randomize; for i:=1 to n do a[i]:=random(100);
for i:=1 to n do write(a[i],' '); writeln;
m:=0; for i:=1 to n do m:=m+ord(odd(a[i]));
s:=0; for i:=1 to n do s:=s+a[i];
writeln('odds=',m,', average=',s/n);
end.

Так-таки голый паскаль с произвольным количеством чисел? Охренеть - не встать. Ну лови:

 program project1; 
 
var 
   i, n, s, c: Integer; 
   a, b: ^Integer; 
 
begin 
  ReadLn(n); 
  GetMem(a, n*SizeOf(Integer)); 
  b:=a; 
  s:=0; 
  c:=0; 
  for i:=1 to n do 
  begin 
    ReadLn(b^); 
    s:=s+b^; 
    inc(c, b^ and 1); 
    inc(b); 
  end; 
  b:=a; 
  for i:=1 to n do 
  begin 
    Write(b^, ' '); 
    Inc(b); 
  end; 
  WriteLn(#13#10'Odds=', c); 
  WriteLn('Avg=', s/n); 
  ReadLn; 
 
end.