Как переписать код используя процедуры?

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    b,c:array[1..nmax*nmax] of integer;
    n,i,j,m,k,q,t:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(40)+10;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
{создаем массив из верхнего треугольника}
m:=0;{его размер}
for i:=1 to n do
for j:=i to n do
 begin
  m:=m+1;
  b[m]:=a[i,j];
 end;
{тоже из нижнего}
k:=0;
for i:=2 to n do
for j:=1 to i-1 do
 begin
  k:=k+1;
  c[k]:=a[i,j];
 end;
writeln('Верхний треугольник:');
k:=1;{строки}
q:=0;{всего чисел и пробелов}
t:=0;{номер в массиве}
while q<=n*n do
 begin
  for j:=1 to k-1 do
   begin
    write(' ':4);{пробелы в начале строки}
    q:=q+1;{считаем}
   end;
  for j:=k to n do
   begin
    t:=t+1;{увеличиваем номер в массиве}
    q:=q+1;{считаем}
    write(b[t]:4);{выводим массив}
   end;
  writeln;{новая строка}
  k:=k+1;{номер строки}
 end;
writeln;
writeln('Нижний треугольник:');
k:=1;{строки}
q:=0;{всего чисел и пробелов}
t:=0;{номер в массиве}
while q<=n*(n-1) do
 begin
  for j:=1 to k-1 do
   begin
    t:=t+1;
    write(c[t]:4);{выводим массив}
    q:=q+1;{считаем}
   end;
  for j:=k to n do
   begin
    write(' ':4);{пробелы в конце строки}
    q:=q+1;{считаем}
   end;
  writeln;{новая строка}
  k:=k+1;{номер строки}
 end;
readln
end.