Заполнить элементами таблицу, располагая их по спирали

[SaimaN]

Доброго времени суток! Разъясните пожалуйста пару строчек в легком кодике! Там где цикл for. Заранее благодарен!
program RPS;
{ Заполнить элементами таблицу, располагая их по спирали. }
uses crt;
var i,j,m,n,l,r : integer;
tab : array [1..50,1..50] of integer;
begin
clrscr;
write('Кол-во строк : '); readln(m);
write('Кол-во столбцов : '); readln(n);
repeat
inc(r);
for i:=r to n-r+1 do begin inc(l);tab[i,r]:=l end; \\для чего это стр
for i:=r+1 to m-r+1 do begin inc(l);tab[n-r+1,i]:=l end;\\эта
for i:=n-r downto r do begin inc(l);tab[i,m-r+1]:=l end;\\эта
for i:=m-r downto r+1 do begin inc(l);tab[r,i]:=l end;\\эта
until l=m*n;
for j:=1 to m do
for i:=1 to n do
begin
write(tab[i,j]:4);
if i=n then writeln;
end;
readln;
end.