[Helloooo]

Здравствуйте, уважаемые профи.
Я знаю как сделать вторую часть задания, где нужен определитель, но не могу продвинуться в задании самой матрицы.
(Матрица Сильвестра) Даны два многочлена: A(x)= a0+a1x+a2x^2+...anx^n и B(x)=b0+b1x+b2x^2+b3x^3+...bmx^m. Построить матрицу для заданных многочленов А(x), B(x) и убедиться в том, что ее определитель совпадает с результантом многочленов.

Код:

uses
  SysUtils;
var
 i, n, m,  j: integer;
 A, B: array of integer;


   begin
     Write('n=');
      readLn(n);
      Randomize();
      SetLength(A, n);
      SetLength(B, n);
     WriteLn('A');
         for i:=0 to n-1 do
         begin
         A[i]:= random(10)+1;
         WriteLn('A(i)', A[i], '  ')

      end;
readln;
end.

То, что уже сделано в коде выше: заданы коэффициенты для многочленов. Что делать дальше, подскажите?