Заполнить массив 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 j>i then A[i,j]:='0';
        if j<i then A[i,j]:='1';
        Write(A[i,j])
        End;
    WriteLn;
    End
End.