Помогите пожалуйста с задачей. Дана числовая последовательность из N частей. Вывести

Const nx=100;var n,i,j,k:integer;R,b:Array[1..nx] of integer;Beginwrite('Введите n');Read(n);for i:=1 to n do beginR[i]:= random(5)-2;write(R[i]:3);if R[i] = 0 then begin b[i]:= i;k:= k +1;end;end;writeln;writeln('номера всех нулевых частей ');for j:=1 to n doif b[j] gt; 0 then writeln(b[j]);end.