Дан массив а[1 ... 5] сколько элементов, равных 0, содержит массив? Вывести номера этих элементов, напишите задачку прошу помогите)

Program z1; Var a: array [1 ... 100] of integer; b: array [1 ... 100] of integer; i, j, n, s, m:integer; Begin write ('Введите рамер массива - ') ; readln (n) ; for i:=1 to n do begin a[i]:=random (2) - 0; write (a[i],' ') ; end; s:=0; j:=1; writeln; for i:=1 to n do if (a[i] = 0) then begin s:=s+1; b[j]:=i; j:=j+1; end; m:=j-1; writeln ('Кол-во элементов равнных 0 - ', s) ; write ('Номера этих элементов - ') ; for j:=1 to m do begin write (b[j],' ') ; end; End.