Заполнить двумерный массив результатами таблицы умножения — Pascal(Паскаль)

uses crt;

const
  n = 10;

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

begin
  clrscr;
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := i * j;
  gotoXY(10, 4);
  write(#201);
  for i := 1 to 41 do
    write(#205);
  write(#187);
  for i := 1 to n do
  begin
    gotoXY(10, 4 + i);
    write(#186);
    for j := 1 to n do
      write(a[i, j]:4);
    write(' ', #186);
  end;
  writeln;
  gotoXY(10, whereY);
  write(#200);
  for i := 1 to 41 do
    write(#205);
  write(#188);
  readln

end.