PASCAL:в заданном массиве подсчитать число нулевых элементов и вывести на экран их индексы

const  n = 30;var  a: array[1..n] of integer;  i, k, e: integer;begin  Randomize;  writeln('Исходный массив');  for i := 1 to n do  begin    a[i] := Random(20) - 10;    write(a[i]:4)  end;  writeln;  k := 0;  write('Индексы нулевых элементов: ');   for i := 1 to n do    if a[i] = 0 then    begin      k := k + 1;      write(i:3)    end;  writeln;  writeln('Количество нулевых элементов: ', k)end.Тестовое решение:Исходный массив   8  -8   0   9  -1   0   4  -6  -8   2   4   7   4  -5   4   2  -1   6  -1   5   5   6  -6  -6  -1  -4   0  -7  -8  -3Индексы нулевых элементов:   3  6 27Количество нулевых элементов: 3