Подсчитать среднее арифметическое элементов и сравнить между собой

var b, d, n, i : integer; avg_x, avg_y : real;
   s, x, y : array[1..100] of integer; {100 максимум}
begin
   repeat write('b = '); readln(b)
   until (b > 1) and (b <= 100);
   for i := 1 to b do begin
      write('s[', i, '] = '); readln(s[i]);
      if s[i] mod 2 = 0 then begin
         inc(d);
         x[d] := s[i];
         avg_x := avg_x + x[d]
      end else begin
         inc(n);
         y[n] := s[i];
         avg_y := avg_y + y[n]
      end
   end;
   avg_x := avg_x / d;
   avg_y := avg_y / n;
   write('X: ');
   for i := 1 to d do write(x[i], ' ');
   writeln;
   write('Y: ');
   for i := 1 to n do write(y[i], ' ');
   writeln;
   writeln('Среднее арифметическое для X = ', avg_x);
   writeln('Среднее арифметическое для Y = ', avg_y);
   if avg_x > avg_y then writeln('Среднее арифметическое для X больше')
   else if avg_x < avg_y then writeln('Среднее арифметическое для Y больше')
   else writeln('Средние арифметические для X и Y равны')
end.