Ez hogy hogy müködik?

program osztaly;

const n=50;

type oszt=record

nev:string;

szulet:string;

szh:string;

end;

var o:array [1..n] of oszt;

i,l,k:byte;

sn,ssz,sh:string;

begin

writeln('Kérem az osztály létszámot!');

readln(l);

for i:=1 to l do begin

writeln('Kérem a(z) ',i,'. tanuló nevét!');

readln(o[i].nev);

writeln('Kérem a(z) ',i,'. tanuló születési dátumát!');

readln(o[i].szulet);

writeln('Kérem a(z) ',i,'. tanuló születési helyét!');

readln(o[i].szh);

end;

//Rendezés

for i:=1 to l do

for k:=1 to l-1 do

if o[k].nev>o[k+1].nev then begin

sn:=o[k].nev;

o[k].nev:=o[k+1].nev;

o[k+1].nev:=sn;

ssz:=o[k].szulet;

o[k].szulet:=o[k+1].szulet;

o[k+1].szulet:=ssz;

sh:=o[k].szh;

o[k].szh:=o[k+1].szh;

o[k+1].szh:=sh;

end;

writeln('Névsor: ');

for i:=1 to l do writeln(o[i].nev);

end.

Én úgy tudtam hogy a minimumosrendezésnél a külső ciklusnak kellene az l-1-ig mennie de úgy nem müködik helyesen a program. Viszont ha a külső ciklus l-ig megy de a belső l-1-ig akkor igen. Jó a megoldásom így?