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

Const   N = 5;Var   A:array[1..N,1..N] of Char;   i,j:integer;BeginWriteLn('Требуемый массив:');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;    EndEnd.