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

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

Здравствуйте форумчане! Есть фрагмент программы на сортировку по возрастанию. Может ли кто-нибудь подсказать комментарии к строкам текста?
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;

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

Благодарю!

Добавлено через 10 мин.
Теперь понятно почему я задаю тут глупые вопросы - оказывается я не понимаю смысл значений i и j в этом примере! Может подскажете?
program info_write;
uses CRT;
type
inform=record
num:byte;
fio:string;
adress:string;
god_post: integer;
end;
var
fv: file of inform;
rv: array [1..20] of inform;
n, i, j: byte;
inf: inform;
begin
clrscr;
WriteLn ('Vvedi kolichectvo sotrudnikov:');
ReadLn (n);
WriteLn ('Vvedi informaciu o cheloveke: ');
for i:=1 to n do
begin
ReadLn (rv[i].num);
ReadLn (rv[i].fio);
ReadLn (rv[i].adress);
ReadLn (rv[i].god_post);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if rv[i].god_post > rv[j].god_post then
begin
inf:=rv[i];
rv[i]:=rv[j];
rv[j]:=inf;
end;
assign (fv, 'inform.doc');
rewrite (fv);
for i:=1 to n do
begin
inf:=rv[i];
Write (fv, inf);
end;
close (fv);
reset (fv);
WriteLn ('Sortirovka po godam:');
While not eof (fv) do
begin
read (fv, inf);
Write (inf.num, ' ', inf.fio, ' ', inf.adress, ' ', inf.god_post);
WriteLn;
end;
Close (fv);
readln;
end.