Помогите с задачкой на Pascal

var
a: array [1..100] of integer;
n, c, b: integer;
begin
randomize;
write('n (<= 100)? ');
readln(n);
writeln('array:');
for c := 1 to n do begin
a[c] := random(31);
write(' ', a[c]);
end;
writeln;
write('b? ');
readln(b);
writeln('result:');
for c := 1 to n do if (a[c] mod 3 = 0) and (a[c] > b) then write(' ', c);
writeln;
end.