In bảng cửu chương

Lập chương trình Pascal để in bảng cửu chương ra màn hình.

Uses crt;
Var
  a:array[1..9,1..9] of Integer ;
  i,j:byte ;
BEGIN
  Clrscr ;
  For i := 1 to 9 do
    For j := 1 to 9 do
      A[i,j] := i*j ;
  For i := 1 to 9 do
    Begin
      For j := 1 to 9 do Write(a[i,j]:5);
      Writeln ;
      Writeln ;
    End ;
  Readln ;
END.