Найти сумму нечётных чисел и количество чётных чисел в двух массивах

const
  n_max = 100;
 
type
  vector = array [1..n_max] of integer;
 
var
  y, x: vector;
 
procedure GenerateVector(n: integer; var a: vector);
var
  i: integer;
begin
  for i := 1 to n do
    a[i] := random(n_max) + 1;
end;
 
procedure PrintVector(n: integer; a: vector);
var
  i: integer;
begin
  for i := 1 to n do
    write(a[i]:4);
end;
 
function SumVector(n: integer; a: vector): integer;
var
  sum, i: integer;
begin
  sum := 0;
  for i := 1 to n do
    if odd(a[i]) then
      sum := sum + a[i];
  SumVector := sum;
end;
 
function QuantityVector(n: integer; a: vector): integer;
var
  k, i: integer;
begin
  k := 0;
  for i := 1 to n do
    if not odd(a[i]) then
      inc(k);
  QuantityVector := k;
end;
 
begin
  randomize;;
  GenerateVector(10, x);
  Write('X: ');
  PrintVector(10, x);
  writeln;
  GenerateVector(10, y);
  Write('Y: ');
  PrintVector(10, y);
  writeln;
  Writeln('Сумма нечетных чисел X: ', SumVector(10, x));
  Writeln('Сумма нечетных чисел Y: ', SumVector(10, y));
  Writeln('Количество четных чисел X: ', QuantityVector(10, x));
  Writeln('Количество четных чисел Y: ', QuantityVector(10, y));
end.