Delphi 7. Лабораторная работа: многомерные массивы

[Noname111]

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

{$APPTYPE CONSOLE}

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

begin
write('n=');
readln(n);
setlength(a,n);
write('m=');
readln(m);
setlength(b,m);
for i:=0 to n do
readln(a[i]);
for i:=0 to m do
readln(b[i]);

Но с кодом составления матрицы проблемы. Пробую через различные циклы, вроде
for k:=0 to m do
for i:=n to 0 do
S[k,i]:=a[i];
if i>n then
S[k,i]:=0;

write (S[k,i]:4);
но что-то не так. Помогите разобраться, пожалуйста.