вводится число Н. а за ним Н целых чисел-элементов массива. обнулите все отрицательные элементы массива и посчитайте

var H,i,sum: integer;a: array [1..10000] of integer;begin//ввод исходных данныхwrite(\'Введите H: \'); readln(H);writeln(\'Введите числа\');for i:=1 to H do readln(a[i]);//проверка элементов массиваsum:=0;for i:=1 to H do if (a[i]<0) then a[i]:=0 else sum:=sum+1; //если отрицательное - обнуляем, иначе оно положительное, увеличиваем сумму на 1//выводwriteln (\'Итоговый массив\');for i:=1 to H do write(a[i], \' \');Writeln();writeln (\'Количество положительных элементов массива: \', sum);end.