Формирование единичной и нулевой матрицы

[britva666]

Помогите в паскале сформировать и вывести на экран нулевую и единичную матрицы размером (5,5).

[evg_m]

for i:=1 to 5 do
for j:=1to 5 do
 if <что здесь писать зависит от вида матрицы>
 then Matr[i,j]:=1 else Matr[i,j]:=0;

[profi]

для единичной:
......

for i:=1 to 5 do
for j:=1 to 5 do
if i=j then
   a[i,j]:=1
else
   a[i,j]:=0;

для нулевой:
.....................

for i:=1 to 5 do
for j:=1 to 5 do
if i=j then
   a[i,j]:=0
else
   a[i,j]:=1;

.................