Вывести на печать нижнюю треугольную матрицу в общепринятом виде

uses crt;
var
   a:array[1..100,1..100] of integer;
   i,j,n:integer;
begin
clrscr;
write('Введите сторону квадратной матрицы=');
readln(n);
writeln('Исходная матрица');
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(51)-10;
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n do
 for j:=1 to n do
  begin
   if (a[i,j]<0) then a[i,j]:=0;
   if (a[i,j]>0) then a[i,j]:=1;
  end;
writeln('Результат');
for i:=1 to n do
 begin
  for j:=1 to n do
   if (j<=i) then write(a[i,j]:4);
  writeln;
 end;
readln
end.

uses crt;
 const n=5;
 var a:array[1..n,1..n] of integer;
     i,j,m,c,k,i1,j1:integer; 
 begin 
   clrscr; 
   m:=n;c:=1;k:=1;
   i:=1;j:=1;
   repeat
    for j1:=(n+1)-m to m do
    begin
     j:=j1;i:=(n+1)-m;
     a[i,j]:=c;
     c:=c+1;
    end;
   c:=c-1;
   for i1:=(n+1)-m to m do
    begin
     i:=i1;j:=m;
     a[i,j]:=c;
     c:=c+1;
    end; 
   c:=c-1;
   for j1:=(n+1)-m to m do
    begin
     j:=(m+k)-j1;i:=m;
     a[i,j]:=c;
     c:=c+1;
    end;    c:=c-1; 
   for i1:=(n+1)-m to m-1 do
    begin
     i:=(m+k)-i1;j:=(n+1)-m;
     a[i,j]:=c;
     c:=c+1;
    end;
   m:=m-1;k:=k+1;
   until k=n;
   for i:=1 to n do
    begin
    for j:=1 to n do
     write(a[i,j],' ');
     writeln;
    end;
   readln;
 end.
 
Второй способ:
 uses crt; 
 const n=4; 
   p=trunc((n-1)/2);
 var i,j,t:1..n; 
  m:array[1..n,1..n] of integer;
  s:integer;
 begin 
  clrscr; 
  s:=0; 
  for t:=1 to p do 
   begin 
   i:=t;
    for j:=t to n-t+1 do 
     begin 
     s:=s+1; 
     m[i,j]:=s;
     end; 
    j:=n-t+1; 
    for i:=2+t-1 to n-t+1 do 
     begin 
     s:=s+1;
     m[i,j]:=s;
     end;
    i:=n-t+1; 
    for j:=n-t downto t do 
     begin 
     s:=s+1; 
     m[i,j]:=s;
     end;
    j:=t; 
    for i:=n-t downto t+1 do
     begin
     s:=s+1; 
     m[i,j]:=s; 
     end; 
    end; 
    s:=s+1;
    m[p+1,p+1]:=s;
    writeln('Матрица-спираль');
    for i:=1 to n do
     begin
     for j:=1 to n do
      write(m[i,j]:4);
      writeln;
     end;
   readkey;
 end.

uses crt;
var
   a:array[1..100,1..100] of integer;
   i,j,n:integer;
begin
clrscr;
write('Введите сторону квадратной матрицы=');
read(n);//читаем размер матрицы
writeln('Исходная матрица');
randomize;//подключаем генерацию псевдослучайных чисел
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(51)-10;//присваиваем элементам матрицы значения от -10 до 40
    write(a[i,j]:4); //выводим строки матрицы
   end;
  writeln;//переход на новую строку
 end;
for i:=1 to n do
for j:=1 to n do
  begin
   if (a[i,j]<0) then a[i,j]:=0;//если элемент меньше 0 заменяем на 0
   if (a[i,j]>0) then a[i,j]:=1;//если больше 0, заменяем на 1
  end;
writeln('Замена элементов');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
writeln('Нижняя треугольная матрица:');
//выводим в общепринятом виде
for i:=1 to n do
 begin
  for j:=1 to n do
  if j<=i then write(a[i,j]:4)//ниже главной диагонали и на ней-элементы матрицы
  else write(0:4);//выше диагонали только ноли
  writeln;
 end;
end.

uses crt;
var i,j,n,l,r : integer;
    a: array [1..100,1..100] of integer;
begin
  write('Размер матрицы n=');
  read(n);
  repeat
    inc(r);//начало пути в строке или столбце
    for i:=r to n-r+1 do //по строке вправо от 1,2,3.. до n,n-1,n-2...
     begin
      inc(l);//увеличиваем счетчик 1,2,3...n*n
      a[i,r]:=l//записываем номер
     end;
    for i:=r+1 to n-r+1 do //по столбцу вниз от 2,3,4.. до n-1,n-2,n-3...
     begin
      inc(l);
      a[n-r+1,i]:=l
     end;
    for i:=n-r downto r do //по строке влево  от n-1,n-2...до 1,2,3...
     begin
      inc(l);
      a[i,n-r+1]:=l
     end;
    for i:=n-r downto r+1 do //по столбцу ввех  от n-1,n-2,n-3...до 2,3,4...
     begin
      inc(l);
      a[r,i]:=l
     end;
  until l=n*n;//все номера - конец
  for j:=1 to n do //вывод спиральной матрицы
   begin
    for i:=1 to n do
    write(a[i,j]:4);
    writeln;
  end;
end.