Заполнить массив из 12 элементов случайными целыми числами от -100 до 100 и подсчитать количество неотрицательных значений, включая ноль — Pascal(Паскаль)

program Massiv;

var
  i, kolvo: integer;
  a: array [1 .. 12] of integer;

begin
  Randomize();
  kolvo := 0;
  { заполняем массив значениями }
  for i := 1 to 12 do
  begin
    a[i] := Random(100) - Random(100);
  end;
  { ищем кол-во значений больших нуля }

  for i := 1 to 12 do
  begin
    { при нахождении очередного большего нуля значения kolvo увеличиваем на 1 }
    if a[i] >= 0 then
      inc(kolvo);
  end;

  { вывод на экран результатов }
  if k > 0 then
    Writeln('Кол-во чисел, больших нуля ' + kolvo)
  else
    Writeln('Нету чисел, больших нуля!!!');

end.