Дан массив натуральных чисел. заполнить с датчика случайных чисел. подсчитать количество четных чисел от 1 до 10.

Var
  a: array[1..1000] of integer; 
  i: integer;
  chet: integer;
  nechet: integer;
begin
  i:=1;
  Randomize;
  while (i<=1000) do 
    begin
      a[i] := random(10);
      if( a[i] mod 2 = 0) then
        chet:=chet+1
      else nechet:= nechet + 1;
        i := i + 1;
  end;
 writeln('четных чисел: ',chet,' ','Нечетных чисел: ' ,nechet)
end.