Определить количество элементов в массивах, попадающих в интервал [-2,6] — Pascal(Паскаль)

program proga1;
var A:array[1..10]of Integer;
    B:array[1..15]of Integer;
    i,count:Integer;
begin
    count := 0;
    Randomize;
    for i:=1 to 10 do begin
        A[i] := Random(21)-10;
        if (A[i]>=-2)and(A[i]<=6) then inc(count);
    end;
    for i:=1 to 15 do begin
        B[i] := Random(21)-10;
        if (B[i]>=-2)and(B[i]<=6) then inc(count);
    end;
    WriteLn('Found ',count,' numbers within [-2,6]');
end;