Заполнить массив из 15 элементов 0 и 1 при помощи генератора случайных чисел. Определить количество нулей и единиц в массиве

var    i, n, e: integer;  k: array[1..15]of integer;begin  for i := 1 to 15 do    begin    k[i] := random(2);    write(k[i],' ');    if k[i]=0 then n:=n+1      else e:=e+1;    end;writeln;  writeln('Нулей: ',n,'; единиц: ',e)end.