Pascal problema

Sveiki. Žinau, gal biški durnai čia skambės, bet... Turiu programą kuri tikrina kuris skaičius iš 3-jų yra didžiausias:

program max;
var a, b, c, max : real;
begin
ReadLn( a, b, c );
if a > b then
  if a > c then max := a
           else max := c
         else if b > c then max := b
                       else max := c;
WriteLn( max:0:2 );
ReadLn;
end.

Dabar taip. Viskas suprantu, kad čia tikrina ir t.t Bet čia yra sąlyga salygoje. Tai jei tarkim a := 2, b := 5, c := 8. Ir dabar pagal sąlyga, tai taip išeina 2 > 5... Tai jei nedaugiau, tai reiškias ir toliau nevykdys. Vienu žodžiu, gal čia kažką jau supainiojau. Paaiškinkit jūs man nuosekliai, nes bražiau ir stūktogramas ir bandžiau braižytis ant lapo, žodžiu nieko neišeina. Atrodo taip lengva, bet sugalvoti...

Labai ačiū už jūsų atsakymus :)

program max;
var a, b, c, max : real;
begin
ReadLn( a, b, c );
max:=0;
if a > max then
max:=a;
if b > max then
max:=b;
if c > max then
max:=c;
WriteLn( max:0:2 );
ReadLn;
end.

Sveikas. Man atrodo aš programą esu savo pirmąjame poste parašęs, kam dar kartą ją reikai parašyti? Man reikia paaiškinimo, kodėl taip, o ne dar kažkokios programos :)

http://pastebin.com/auA0SvMJ

Manau tavo klaida slypi eilutėje numeris 13 :)

Dėkui nagisa, už pastebėjimą, čia rašant palikau tokia durną klaidą :)

P.S - ištaisiau :)

P.S.S - Jau viskas daėjo, dėkui nagisai :)