Напечатать элементы матрицы, расположенные ниже главной диагонали, в виде таблицы

unit prog1;
interface
var n,i,j:integer;
    a:array[1..20,1..20] of integer;
    procedure vvod;
    procedure scet;
 implementation
procedure vvod;
              begin
              write('Ââåäèòå ðàçìåð ìàòðèöû ');
              readln(n);
              for i:=1 to n do
                  for j:=1 to n do
                      a[i,j]:= Random(20);
 
              for i:=1 to n do
                  begin
                       for j:=1 to n do
                       write(a[i,j]:5);
                       writeln;
                       end;
              end;
 
 procedure scet;
              begin
              for i:=1 to n do
                  for j:=1 to n do
                      if i<j+1 then
                         a[i,j]:=0;
              for i:=1 to n do
                  begin
                  for j:=1 to n do
                  write(a[i,j]:5);
                  writeln;
                  end;
              end;
 end.

program lab8_2;
uses prog1;
begin
vvod;
writeln;
writeln('Новая матрица : ');
scet;
end.