В одномерном массиве из 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.