Заменить нулевые элементы матрицы, расположенные под побочной диагональю, на любые, отличные от нуля — Pascal(Паскаль)

uses
  Crt;
  
const
  N = 5;
 
var
  a: array [1..N, 1..N] of integer;
  i,j: integer;
begin
  ClrScr;
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      if j >= N - i + 2 then
        a[i,j] := 8
      else
        a[i,j] := 0;
      Write(a[i,j]:3, ' ');
    end;
    WriteLn
  end;
  ReadLn
end.