Даны три действительных числа удвойте их,если они окажутся по возрастанию

Var a,b,c:real;
begin
readln(a,b,c);
if (a<b) and (b<c) then
  begin
  a:=2*a;
  b:=2*b;
  c:=2*c;
  writeln(a,' ',b,' ',c)
  end
  else writeln('числа неупорядочные')
end.