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

(делаю масив 10 на 10) program Matrix; var a: array [1… 10,1… 10] of integer; i,q,b,f: integer; beginb: =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 dobeginfor q: =2 to 10 dobegin b: =q-1; f: =i-1; a[i,q]: =a[i,b]+a[f,q]; end; end; readlnend.