В одномерном массиве из n чисел вывести на экран положительные элементы и сообщение об их количестве.

const nz =  30;var a:array[1..nz] of integer; i,n,k:integer; begin  write('Введите число элементов n'); Readln(n); for i:=1 to n do begin a[i]:= random(100)-50;write(a[i]:4);end;writeln; for i:=1 to n do begin if a[i]> 0 then begin write(a[i]:4); k:=k +1;end;end;writeln; write('количество положительных элементов = ',k);end.