Файлы (или Записи) Опции

[Провинциалка]

Здравствуйте форумчане! Есть фрагмент программы на сортировку по возрастанию. Может ли кто-нибудь подсказать комментарии к строкам текста?
Code

for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
obm:=a[i];
a[i]:=a[j];
a[j]:=obm;
end;

[TarasBer]

for i:=1 to n-1 do
  for j:=i+1 to n do  // по всем  парам элементов смотрим
    if a[i]>a[j] then   // если они стоят не в том порядке
    begin                 
      obm:=a[i];       // то меняем их местами
      a[i]:=a[j];
      a[j]:=obm;
    end;