Программа. Матрица. Паскаль.

как получить матрицу такого вида в паскале?

1 1 1 1 1 ...

1 2 3 4 5 ...

1 3 6 10 15 ...

1 4 10 20 35 ...

...

1 столбик и первая строчка равны 1

последующ. получаются путем сложения верхнего и стоящего слева цисел ...

(делаю масив 10 на10)

program Matrix;

var a:array [1 ... 10,1 ... 10] of integer;

i, q, b, f:integer;

begin

b:=0; f:=0; q:=1;

for i:=1 to 10 do begin a[i, q]:=1; end;

i:=1;

for q:=1 to 10 do begin a[i, q]:=1; end;

for i:=2 to 10 do

begin

for q:=2 to 10 do

begin

b:=q-1;

f:=i-1;

a[i, q]:=a[i, b]+a[f, q];

end; end;

readln

end.