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

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.