Обьясните програмку как она работает в Delphi

[Razdolbam]

Обьясните пожлста как циклы работают тут, код программы:

const n=3;
type sem=record
fam:string;
kol:byte;
rab:byte;
zarab:word;
sred:integer;
izhd:byte;
end;
semi=array [1..n] of sem;
var sems:semi;i,max,zar1,zar2:integer;s em1,sem2:string;est1,est2:boolean;
begin
for i:=1 to n do
begin
writeln('semya #',i);
writeln('familiya glavi semeistva:');
readln(sems[i].fam);
writeln('kol-vo chlenov semyi:');
readln(sems[i].kol);
writeln('kol-vo rabotaiushih v semie:');
readln(sems[i].rab);
writeln('obshiy zarabotok:');
readln(sems[i].zarab);
end;
for i:=1 to n do
begin
sems[i].sred:=round(sems[i].zarab/sems[i].kol);
sems[i].izhd:=sems[i].kol-sems[i].rab;
writeln('v semie ',sems[i].fam,' sredniy zarabotok=',sems[i].sred);
if sems[i].izhd>max then
begin
sem1:=sems[i].fam;
max:=sems[i].izhd;
end;
end;
writeln('v semie ',sem1,' bolshe vsego izhdivencev');
writeln('vvedite familii dvuh glav semeistv:');
sem1:='';
readln(sem1);
readln(sem2);
est1:=false;
est2:=false;
for i:=1 to n do
begin
if sems[i].fam=sem1 then
begin
zar1:=sems[i].sred;est1:=true;
end;
if sems[i].fam=sem2 then
begin
zar2:=sems[i].sred;
est2:=true;
end;
end;
if not est1 then writeln('semii ',sem1,' ne naideno');
if not est2 then writeln('semii ',sem2,' ne naideno');
if (est1) and (est2) and (zar1>zar2) then writeln('u semii ',sem1,' zarabotok bolshe chem u semii ', sem2,' na ',zar1-zar2);
if (est1) and (est2) and (zar2>zar1) then writeln('u semii ',sem2,' zarabotok bolshe chem u semii ', sem1,' na ',zar2-zar1);
if (est1) and (est2) and (zar2=zar1) then writeln('u semii ',sem1,' i semii ', sem2,' zarabotok odinakovii');
readln;
end.

[p51x]

Программы НЕ работают в Делфи. А циклы работают как положено: на каждой итерации счетчик цикла увеличивается на +1 и список операторов повторяется.