Вывод матрицы в таблицу, с возможностью задания имен строк и столбцов

program sr2;
uses crt;
const m=3;
      n=3;
      a:array [1..m,1..n] of integer=((1,3,4),
                                     (182,93,2),
                                     (2,3,4));
var i,j,k,l,r,q,max:integer;
    b:array[1..m] of string[15];
    c:array[1..n] of string[25];
label m1;
begin
clrscr;
{Определяем количество разрядов в максимальном числе,
следовательно название стобца должно быть длинее самого большого числа.
Если же число отрицательное, то делаем его положительным}
r:=0;
for i:=1 to n do
    for j:=1 to m do
        begin
        q:=a[i,j];
        if q<0 then q:=q*(-1);
        while q div 10 >=1 do  {Определяем количество разрядов}
              begin
                   r:=r+1;
                   if r>max then max:=r;
                   q:=q div 10;
              end;
        end;
for i:=1 to n do
    begin
         m1:
         writeln('Введите имя ',i,' столбика');
         readln(b[i]);
         if length(b[i])<max then
         begin
              writeln('Название столбика должно быть ',max,' и более символов');
              goto m1;
         end;
    end;
max:=0;
for i:=1 to m do
    begin
         writeln('Введите имя ',i,' строки');
         readln(c[i]);
         if length(c[i])>max then max:=length(c[i]);
    end;
{Рисуем шапку}
write(' ');
for k:=1 to max do
    write('_');
for k:=1 to n do
    begin
         write(' ');
         for l:=1 to length(b[k]) do
         write('_');
    end;
writeln;
write('|');
for k:=1 to max do
    write(' ');
for k:=1 to n do
    begin
         write('|');
         write(b[k]);
         if k=n then
         write('|');
    end;
writeln;
write(' ');
for k:=1 to max do
    write('-');
for k:=1 to n do
    begin
         write(' ');
         for l:=1 to length(b[k]) do
         write('-');
    end;
{Тело матрицы}
for j:=1 to n do
    begin
         writeln;
         if length(c[j])<=max then  {Пишем названия строк, при этом отступаем}
         begin
              write('|',c[j]);
              for l:=1 to max-length(c[j]) do
                  write(' ');
              write('|');
         end
         else
              write('|',c[j]);
         for i:=1 to m do
             begin
                  write(a[j,i]:length(b[i]));
                  write('|');
             end;
         if i=m then
            begin
                 writeln;
                 write(' ');
                 for k:=1 to max do
                     write('-');
                 for k:=1 to n do
                     begin
                          write(' ');
                          for l:=1 to length(b[k]) do
                              write('-');
                     end;
            end;
    end;
readln;
end.