Разбор кода Delphi

[cv0l04b]

Delphi

procedure nap (a:mass;k,t:integer);
var
c:real;
p,i,j:integer;
begin
for p:=1 to k do
for i:=1 to k-1 do
for j:=i+1 to k do
if a[i,p]<a[j,p] then
begin
c:=a[i,p];
a[i,p]:=a[j,p];
a[j,p]:=c;
end;
for i:=1 to 3 do
for j:=1 to 3 do
form1.F1Book2.NumberRC[t+i,j+1]:=a[i,j];
end;

можете доступно и подробно объяснить что делает данная процедура? пошагово

[Alex11223]

Скорее всего это сортировка (по убыванию) пузырьком двухмерного массива.
http://ru.wikipedia.org/wiki/Сортировка_пузырьком
http://ru.wikibooks.org/wiki/Примеры...овки_пузырьком

[whatever]

procedure nap (a:mass;k,t:integer);
var
  c:real;
  p,i,j:integer;
begin
  for p:=1 to k do
    for i:=1 to k-1 do
      for j:=i+1 to k do
        if a[i,p]<a[j,p] then
          begin
            c:=a[i,p];
            a[i,p]:=a[j,p];
            a[j,p]:=c;
          end;  //до этого момента сортировка элементов массива a от 1 до k по убыванию
  for i:=1 to 3 do
    for j:=1 to 3 do
      form1.F1Book2.NumberRC[t+i,j+1]:=a[i,j]; //запись отсортированного массива в форму, что такое F1Book2 не знаю, в стандартных инструментах не нашел
end;

[cv0l04b]

for p:=1 to k do
for i:=1 to k-1 do
for j:=i+1 to k do

меня на самом деле интересует почему тут именно вот такие промежутки