[Helloooo]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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.

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