Из 2 чисел a и b выбрать наибольшее. Надо написать программу в паскале.

Program Max; Uses Crt; var a,b,max: real; begin clrscr; write ('Введите число а: '); readln (a); write ('Введите число b: '); readln (b); if (a=b) then writeln ('Числа одинаковы') else begin max: =a; if (b>a) then max: =b; writeln ('Наибольшее число: ',max); end; readkey; end.