Question

Почему в моей программе массив заполняется одинаковыми числами, если он задавался рандомно?
program zadanie;
uses crt;
var a: array [1..10] of integer;
s,i,imax: integer;
begin
clrscr;

writeln('заполнение массива из 10-ти целых чисел');
for i: =1 to 10 do
begin
randomize;
a[i]: = random(100);
write(a[i], ' ');
end;
writeln('подсчёт количества элементов массива, имеющих максимальное значение');
imax: = 1;
s: =0;
for i: = 2 to 10 do
begin
if a[i] > imax then
imax: = a[i];
end;
for i : = 1 to 10 do
begin
if a[i]= imax then
s: =s+1;
end;
writeln(s);
end.