массив из 500 чисел, Помогите плиз, и желательно быстрее... Опции

[Toxic]

Сгенерировать и вывести на экран массив из 500 случайных чисел со значением в диапозоне от 1 до 9. Определить массив из 9 элементов, где будут записаны количества пар одинаковых соседних элементов сгенерированного массива.

[virt]

var a : array[1..9]of integer;
    v1,v2,i : integer;

begin
   fillchar(a,sizeof(a),0);
   Randomize;
   v1 := 0;
   for i := 1 to 500 do
      begin
         v2 := random(9) + 1;
         write(v2,' ');
         if  v1 = v2 then a[v2] := a[v2] + 1;
         v1 := v2;
      end;
   writeln;
   for i := 1 to 9 do
      write(a[i],' ');
end.