Дан массив. Напечатать все неотрицательные элементы

Const nx=30;

var C:Array[1 ... nx] of integer;

i, min, q, n:integer;

begin write ('введите кол-во элементов массива') ;

Read (n) ;

for i:=1 to n do begin

C[i]: = random (100) - 50;

if c[i]> 0 then begin write (C[i]:4) ; end; end;

writeln;

for i:=1 to n do write (C[i]:4) ;

end.