Найти, в каком из массивов больше положительных чисел, а в каком отрицательных

const
    ANSWER: Array[Boolean] Of Char = ('B', 'A');
type
    TVector = Array[Byte] Of ShortInt;
procedure PosNegCount(const x: TVector; const len: Byte; var neg, pos: Byte);
var
    i: Byte;
begin
    pos := 0; neg := 0;
    for i := 0 to len - 1 do
        if (x[i] > 0)
        then
            Inc(pos)
        else
            if (x[i] < 0)
            then
                Inc(neg);
end;
var
    a, b: TVector;
    i, aNeg, bNeg, aPos, bPos: Byte;
    n: Integer;
begin
    repeat
        Write('Введите длину векторов (1..256): ');
        ReadLn(n);
    until ((n > 0) And (n < 257));
    Randomize; Write('A:');
    for i := 0 to n - 1 do
    begin
        a[i] := Random(199) - 99;
        Write(a[i]:4);
    end;
    WriteLn;
    Write('B:');
    for i := 0 to n - 1 do
    begin
        b[i] := Random(199) - 99;
        Write(b[i]:4);
    end;
    WriteLn;
    PosNegCount(a, n, aNeg, aPos);
    PosNegCount(b, n, bNeg, bPos);
    Write('Положительных: ');
    if (aPos = bPos)
    then
        Write('одинаковое количество')
    else
        Write('больше в векторе ', ANSWER[aPos > bPos]);
    WriteLn; Write('Отрицательных: ');
    if (aNeg = bNeg)
    then
        Write('одинаковое количество')
    else
        Write('больше в векторе ', ANSWER[aNeg > bNeg]);
    WriteLn;
end.