заполнение матрицы

[DinamoBrynsk]

нужно заполнить матрицу так:

1 1 1 1
2 2 2 0
3 3 0 0
4 0 0 0

вот, что я получил :

1 0 0 0
2 2 0 0
3 3 3 0
4 4 4 4

код:

var i,j,k,b:integer;
begin
for i:=0 to 5 do
for j:=0 to 5 do
 begin
stringGrid1.Cells[i,j]:=floattostr(j+1);
if j<i then
stringGrid1.Cells[i,j]:=floattostr(0);
end;

исправьте, пожалуйста

[GetMax]

var i,j,k:integer;
begin
  k:=4;
  for i:=0 to 5 do
  Begin
    for j:=0 to 5 do
    If j < k then stringGrid1.Cells[j,i]:=floattostr(i+1)
    Else
    If j >= k then StringGrid1.Cells[j,i]:=FloatToStr(0);
    Dec(k)
  End;
end;

[DinamoBrynsk]

Спасибо