Как вывести результат двумерного массива на экран в виде таблицы?

for i:=1 to n do
begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
end;

program lab5;
const n=10;
var i, j:integer;
max, min, z,y:real;
        a:array [1..n, 1..n] of real;
        x: array [1..n] of real;
  begin
 writeln ('первая часть');
   for j:=1 to n do
   for i:=1 to n do
   a[j,i]:=ln(j+1)/(ln(i+1)+ln(j+1));
   for j:=1 to n do
   begin
     for i:=1 to n do
     writeln (a[j,i]:10:2);
     writeln;
   end;

program lab5;
const n=10;
var i, j:integer;
max, min, z,y:real;
        a:array [1..n, 1..n] of real;
        x: array [1..n] of real;
  begin
 writeln ('первая часть');
   for j:=1 to n do
   for i:=1 to n do
   a[j,i]:=ln(j+1)/(ln(i+1)+ln(j+1));
   for j:=1 to n do
   begin
     for i:=1 to n do
     write(a[j,i]:10:2);
     writeln;
   end;
 end.

for i:=1 to n do
begin
  writeln;
  for j:=1 to m do
  write(a[i,j]:4);
end;

program Project1;
const
  n = 5;
  m = 5;
var
  i,j: integer;
  a: array [1..n,1..m] of integer = ((9,1,3,6,3),
                                     (4,7,2,0,4),
                                     (2,6,9,2,4),
                                     (3,8,4,8,8),
                                     (4,2,8,4,6));
begin
  for i:= 1 to n do
    begin
      for j:= 1 to m do
        write(a[i,j]:4);
      writeln;
    end;
  readln;
end.

for i:=1 to 25 do begin
  WriteLn; Write(i:2);
end;