Сделать вывод программы в виде таблицы

Uses crt, graphabc;
Const n=9;
var
a:array[1..9,1..9]of integer;
i,j,k:integer;
s : string;
begin
 k:=k+1;;
 for i:=1 to (n+1) div 2 do begin
   for j:=i to n-i+1 do begin
   a[i,j]:=k;
   Inc(k);
   end;
   for j:=i+1 to n-i+1 do begin
   a[j,n-i+1]:=k;
   Inc(k);
  end;
  for j:=n-i downto i do begin
   a[n-i+1,j]:=k;
   Inc(k);
   end;
  for j:=n-i downto i+1 do begin
  a[j,i]:=k;
  Inc(k);
  end;
 end;
   for i:=1 to n do begin
   for j:=1 to n do write(a[i,j]:5);
   writeln
   end;
   readln;
 end.

Program z_10;
Uses crt, graphabc;
Var x, y, k : byte;
    mas : array [1..9, 1..9] of byte;
    s : string;
Begin
 for y:=1 to 9 do
 for x:=1 to 9 do begin
 k:=k+1;
 mas [x,y]:=k;
 rectangle (x*40, y*40, x*40+38, y*40+38);
 str(mas [x,y], s);
 textsize (15);
 textout (x*40+6, y*40+6, s); end;
End.

Uses graphabc;
Const n=9;
var
a:array[1..n,1..n]of integer;
i,j,k,x,y:integer;
begin
 k:=k+1;
 for i:=1 to (n+1) div 2 do
  begin
   for j:=i to n-i+1 do
    begin
     a[i,j]:=k;
     Inc(k);
    end;
   for j:=i+1 to n-i+1 do
    begin
     a[j,n-i+1]:=k;
     Inc(k);
    end;
   for j:=n-i downto i do
    begin
     a[n-i+1,j]:=k;
     Inc(k);
    end;
  for j:=n-i downto i+1 do
   begin
    a[j,i]:=k;
    Inc(k);
   end;
  end;
 for i:=1 to n do
 for j:=1 to n do
  begin
   rectangle (j*40, i*40, j*40+38, i*40+38);
   setfontsize (15);
   textout (j*40+6, i*40+6, inttostr(a[i,j]));
  end;
end.