В данной последовательности целых чисел найти минимальное значение среди неотрицательных элементов и все номера членов последовательности, равных емуна паскаль написать

var a: array [1..1000] of integer; i, n, min, amount: integer; begin      read(n); {Сначала считываем кол-во элементов}      for i := 1 to n do          read(a[i]);      min := 10000;      amount := 0;      for i :=1 to n do           if (a[i] < min) and (a[i] >= 0) then               min := a[i];      for i := 1 to n do          if a[i] = min then             amount := amount + 1;      writeln('Min: ', min, ', amount: ', amount); end.