Помогите, пожалуйста решить данный двумерный массив

var

 a: array[1..6, 1..6] of integer;

begin

 for var i := 1 to 6 do

 begin

   for var j := 1 to 6 do

   begin

     if (i = 1) or (j = 1) then a[i, j] := 1

     else a[i, j] := a[i, j - 1] + a[i - 1, j];

     write(a[i, j]:4, ' ')

   end;

   writeln;

 end

end.