Написать программу: выбрать наибольшее из двух вещественных чисел. Язык -Паскаль

Program mb;var a,b:integer;beginclrscr;writeln('vvedite a,b');readln(a,b);if a>b then writeln('большим является a')else writeln('большим является b');end.