Miért úgy kell megoldani, ahogy meg van oldva?

(értelmes válaszokat kérek,számomra nem nagyon érthető,hogy miért így van.)

program Pelda19;

var a,b,c,x:integer;

begin

write('Kerem az elso szamot: ');

readln(a);

write('Kerem a masodik szamot: ');

readln(b);

write('Kerem a harmadik szamot: ');

readln(c);

if a>b then begin

x:=a;

a:=b;

b:=x;

end;

if a>c then begin

x:=a;

a:=c;

c:=x;

end;

if b>c then begin

x:=b;

b:=c;

c:=x;

end;

write('A harom szam novekvo sorrendben: ');

writeln(a,' < ',b,' < ',c);

end.

( [link] innen van)