Работа с двумерным массивом

[SaimaN]

И снова слезно прошу о помощи, разъясните пожалуйста коментариями строчки, начиная со слова repeat:

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.

Спасибо за внимание!