Массивы P(10) и Q(10) заполнить целыми случайными числами в спектре от

Подозреваю, что надобно подсчитать количество произведений P(i)xQ(i), а не на Q(1)

// PascalABC.NET 3.0,сборка 1073
const
  n=10;
var
  a,b:array[1..n] of integer;
  i,p,k,max:integer;
begin
  Randomize;
  max:=-200; k:=0;
  Writeln('    A   B  AixBi');
  Writeln('=================');
  for i:=1 to n do begin
    a[i]:=Random(21)-10;
    b[i]:=Random(21)-10;
    p:=a[i]*b[i];
    Writeln(i:2,a[i]:4,b[i]:4,p:5);
    if plt;0 then begin Inc(k); if pgt;max then max:=p end
  end;
  Writeln('=================');
  Writeln('Количество AixBilt;0 одинаково ',k);
  Writeln('Максимум посреди этих творений равен ',max);
end.

Тестовое решение:
    A   B  AixBi
=================
 1   8  -7  -56
 2  -7  -8   56
 3  -4   3  -12
 4  -9  -2   18
 5 -10   3  -30
 6  -3   3   -9
 7   0   2    0
 8  -9  -7   63
 9  -7  -7   49
10   0  -7    0
=================
Количество AixBilt;0 равно 4
Максимум посреди этих творений равен -9