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

[Rust.am]

Помогите пожалуйста разобраться с заполнением матрицы:
7 6 2 1
13 8 5 3
14 12 9 4
16 15 11 10

запутался окончаельно, до 4 правильно а потом все...

SG-StringGrid
SE-SpinEdit

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,n:integer;
begin
k:=1;
i:=SE.Value-1;
j:=0;
n:=SE.Value-1;
SG.Cells[i, j] := inttostr(k);
repeat
if i<n then begin
dec(j);
inc(k);
SG.Cells[i,j]:=inttostr(k);
end else begin
dec(i);
inc(k);
SG.Cells[i,j]:=inttostr(k);
end;
while (i<n) and (j<n) do begin
inc(i);
inc(j);
inc(k);
SG.Cells[i,j]:=inttostr(k);
end;
 
if i>n then begin
dec(i);
inc(k);
SG.Cells[i,j]:=inttostr(k);
end else
if j<n then begin
inc(j);
inc(k);
SG.Cells[i,j]:=inttostr(k);
end;
while (j>0) and (i<n) do begin
dec(j);
dec(i);
inc(k);
SG.Cells[i,j]:=inttostr(k);
end;
until (i=n) and (j=n);
end;