даны n частей массива найти количество частей значение которых кратно первому

var

 a: array of integer;

 i, n, k: integer;

begin

 randomize;

 k := 0;

 write('Введите n = ');

 readln(n);

 SetLength(a, n);

 writeln(' *** Сгенерированный массив *** ');

 for i := 0 to Length(a) - 1 do

 begin

   a[i] := random(20) + 1;

   write(' ', a[i]);

 end;

 for i := 1 to Length(a) - 1 do

   if (a[i] mod a[0]) = 0 then Inc(k);

 writeln(13 + 'Кол-во частей кратных "', a[0], '" = ', k);

end.