Tam giác pascal

Viết chương trình in ra màn hình tam giác Pascal. 
Ví dụ, với n=4 sẽ in ra hình sau:
     1
     1 1
     1 2 1
     1 3 3 1
     1 4 6 4 1

                                                           Lời giải tham khảo

var
   i,j,n: integer;
   a,b: array[1..1000] of int64;
BEGIN
   Write('Nhap n: '); readln(n);
   writeln('1');
   a[1]:=1;
   for i:= 1 to n do
      begin
          for j:= 2 to i do
             a[j]:=b[j-1] + b[j];
          a[i+1]:=1;
          for j:=1 to i+1 do
             begin
                write(a[j],' ');
                b[j]:=a[j];
             end;
          writeln;
      end;
   readln;
END.