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

program dds;

const n =10;var a:array[1..n]of integer;i,o,z,x,h:integer;begin z:=0;for i:=1 to n do begin a[i]:=random(10)-5; write(a[i]:4);end;writeln;write('vvedite H');readln(H);for i:=h+1 to n do begin if a[i]<0 then a[i]:=0; if a[i]>0 then z:=z+1;end;for i:=1 to n do write(a[i]:4);writeln;write('chishel=',z);readln;end.