Склавиатуры вводятся два вещественных числа. выведите через запятую в одной строке сначала меньшее из них, а потом большее.

Program prog;
uses crt;
var a,b: real;

begin
clrscr;

write('a = ');
readln(a);
write('b = ');
readln(b);

if a<b then writeln(a,', ', b);
if a>b then writeln(b,', ', a);
if a=b then writeln(a,', ', b,' -  числа равны');

 end.