Дана квадратная матрица A порядка M. Начиная с элемента A1,1, вывести ее элементы следующим образом («уголками»)

program Project1;
const
  maxelem = 20;
var
  a: array[1..maxelem,1..maxelem] of integer; { Переменная для хранения массива.}
  m: integer; { Переменные для хранения значения строк и столбцов двумерного массива. }
  i,j,k: integer; { Вспомогательные переменные для организации циклов.}
 
begin
  Randomize;
  write('Введите значение размерности матрицы (не более ',maxelem,'): ');
  Readln(m);
  for i:= 1 to m do
    for j:= 1 to m do
      a[i,j]:= random(100);
  writeln('Исходный массив: ');
  for i:= 1 to m do
    begin
      for j:= 1 to m do
        write(a[i,j]:5);    { Вывод двумерного массива в консоль.}
      Writeln;
    end;
  {Код который выводит элементы квадратной матрицы уголками:
  вначале идут элементы первого столбца и последней строки,
  затем второго столбца и предпоследней строки и т. д.
  Конечным идет элемент, что стоит в правом верхнем углу.}
  for j:= 1 to m do
    begin
      writeln(j,' уголок.');
      for i:= 1 to m-j+1 do
        write(a[i,j]:4);
      for k:= j+1 to m do
        write(a[m-j+1,k]:4);
      writeln;
    end;
 
 
  Readln;
end.

uses crt;
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    m,i,j,k:integer;
begin
repeat
write('Размер матрицы от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
randomize;
writeln('Матрица A:');
for i:=1 to m do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(100);
     write(a[i,j]:3);
    end;
   writeln;
 end;
writeln('Вывод "уголков" с нижнего левого');
for k:=1 to m do
 begin
  for i:=1 to m-k+1 do write(a[i,k]:3);
  for i:=k+1 to m do write(a[m-k+1,i]:3);
  writeln
 end;
end.