Максимальное из трех чисел

Program Lab3_14; uses crt;

var a,b,c,max:real;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
GotoXY(17,WhereY); Writeln('Для запуска программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln; clrscr;

Write('--------------------------------------------------------------------------------');
Write(' Введите число A: '); Readln(A);
Write(' Введите число B: '); Readln(B);
Write(' Введите число C: '); Readln(C);

Max:=A;

if (Max < B) then
                 Begin
         Max:=B;
         if (Max < C) then Max:=C;
         end
         else if (Max < C) then Max:=C;

Write('--------------------------------------------------------------------------------');
Writeln(' Максимальное из трех чисел: ', Max:8:5);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.