Составьте программу , которая заполняет массив а [ 1..10 ] случайными

Держи :) На снимке экрана код читабельней :) 
var   a: array[1..10] of integer;  i, ch, nech: integer;  begin  for i := 1 to 10 do    begin      a[i] := random(10) + 1;       if a[i] mod 2 = 0 then        ch := ch + 1      else        nech := nech + 1;    end;          writeln('Количество чётных: ',ch);  writeln('Количество нечётных: ',nech);
end.