Найти индексы всех элементов массива, значение которого равно нулю, если таковой существует

var

  a : array [1..1000] of integer;

  n, i : integer;

begin

  write ('Введите количество элементов');

  readln (n);

  write ('Введите массив');

  for i := 1 to n do read (a[i]);

  writeln ('Элементы с нулевым значением: ');

  for i := 1 to n do

    if a[i] = 0 then write (i, ' ');

end.