Даны три числа авс. составьте программу, которая упорядочит их по возрастанию?

Var
a,b,c,max,min,mid:real;
begin
readln(a,b,c);
if (a>b) then begin max:=a; mid:=b end
else begin max:=b; mid:=a end;
if c>max then  max:=c
else
if c>mid then begin min:=mid; mid:=c end;
write(min,' ',mid,' ',max);
end.