Заполнить массив 5 на 5 нулями выше диагонали, ниже основной диагонали

Const
   N = 5;
Var
   A:array[1..N,1..N] of Char;
   i,j:integer;
Begin
WriteLn('Требуемый массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        if j=i then A[i,j]:='*';
        if jgt;i then A[i,j]:='0';
        if jlt;i then A[i,j]:='1';
        Write(A[i,j])
        End;
    WriteLn;
    End
End.