Заменить в массиве первый отрицательный элемент нулем

Program znanija;
var A:array[1..10] of integer;   
i,k:integer;

begin
for i:=1 to 10 do  A[i]:=random(5)-10; // заполняем массив случайными отрицательными числами

for i:=1 to high(A) do 
if (A[i] < 0) and (k < 1) then begin A[i] := 0; inc(k); end;  // если отрицательное и мы ещё ни разу не заменяли, то заменяем на 0 и ставим флаг в К что уже заменили один раз

for i:=1 to 10 do  write(A[i]:3); // выводим массив. Если первое число было отрицательным, то оно будет равно 0
end.

#include <iostream>

using namespace std;

int main () {

    

    int digit = 300;

    

    do {

        int sum = 0;

        int teiler = 1;

        

        while (teiler <= digit)

        {

            if (digit % teiler == 0)

                sum+=teiler;

            

            teiler++;

            

        }

        

        if(sum % 10 == 0)

        {

            cout << digit << endl;

        }

        

        digit++;

        

    } while (digit <= 600);

    

    return 0;

}

Const N = 30; // Количетсво дней
var
i,count:integer;
h: array [1..N] of integer;
begin
count:=0;
writeln('Введите количество осадков');
for i:=1 to N do
read(h[i]);
for i:=1 to N do
if h[i]>0 then
count:=count+1;
writeln('Количество дождливых дней ', count)
end.

В первой строке указываем количество дней. Это константа N
Далее объявляем, что переменная count равна 0. В этой переменной мы будем хранить количество дней с осадками.
Далее мы вводим с клавиатуры 30 чисел, показывающих осадки.
Потом мы проверяем, если число в массиве больше нуля, то мы увеличиваем count на единицу. Тоесть прибавляем +1 день с осадками.
В конце выводим количество дней с осадками