В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов. — Pascal(Паскаль)

const
  n = 10;

var
  i, k: integer;
  a, b: array [1 .. n] of integer;

begin
  for i := 1 to n do
  begin
    a[i] := 5 - random(10);
    write(' ', a[i]:3);
  end;
  writeln();
  writeln('-------');
  k := 0;
  for i := 1 to n do
    if a[i] = 0 then
    begin
      inc(k);
      b[k] := i;
    end;

  writeln('-------');

  if k > 0 then
    for i := 1 to k do
      write(' ', b[i]:3);
  writeln();

end.