Задание на матрицы

[Mr_sniper]

Помогите пожалуйста написать программу, не удаётся задатьзначения :



Заданы два одномерных массива А и В размерности соответственно n и m. Сформировать двухмерный массив D размерности mxn, каждый элемент которого dij=aibj; i =1,2,..., п; j=1 ,2,...,m, и обнулить отрицательные элементы D.

[GetMax]

Сформировать двухмерный массив D размерности mxn, каждый элемент которого dij=aibj; i =1,2,..., п; j=1 ,2,...,m,

For i:=1 to n do
  Begin
    For j:=1 to m do
    Begin
      d[i,j]:=a[i]*b[j];
      Write(d[i,j]:3)
    End;
    Writeln;
  End;

Остальное сам доделаешь

[Mr_sniper]

Спасибо, то что нужно