Расположение значений в порядке возрастания(Delphi)

[ShaoKhan]

Доброго времени суток!
Есть такая вот программка с процедурами и с дальнейшем вычислением значений m4,m5,m6.

program Procedure1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Math;

var a,b,c,p,l,r,f,K,S,S1,S2,m4,m5,m6:Real;
  Procedure area1(var x,y,z,K:Real);
  var r:real;
begin
Writeln('x=');
Readln(x);
Writeln('y=');
Readln(y);
Writeln('z=');
Readln(z);
r:=((x+y+z)/2);
K:=sqrt((r*(r-x)*(r-y)*(r-x)));
end;
begin
area1(a,b,c,S1);
Writeln('S1=',S1:2:2);
Readln;
area1(p,l,f,S2);
Writeln('S2=',S2:2:2);
Readln;
if S1<=S2 then S:=-1 else
if S1>S2 then S:=1;
m4:=0.5*sqrt(2*l*l+2*f*f-p*p);
m5:=0.5*sqrt(2*p*p+2*f*f-l*l);
m6:=0.5*sqrt(2*l*l+2*p*p-f*f);
writeln('m6=',m6:2:2,'  m5=',m5:2:2,'  m4=',m4:2:2);
readln;
end.

Подскажите как расположить в порядке возрастания числа m4,m5 и m6?
Без использования массивов.

[Serge_Bliznykov]

Подскажите как расположить в порядке возрастания числа m4,m5 и m6?

это просто.
сортировка через переменные напрямую...

var t : double;
....
  while (m4>m5) or (m5>m6) do begin
    if m4>m5 then begin t:=m4; m4 := m5; m5:=t end;
    if m5>m6 then begin t:=m5; m5 := m6; m6:=t end;
  end;

  writeln('m6=',m6:2:2,'  m5=',m5:2:2,'  m4=',m4:2:2);

[ShaoKhan]

Никаких изменений=/

[ShaoKhan]

Ан, нет!
Разобрался!
Вы написали по убыванию.
Поменял знаки, всё пошло=)
Спасибо большое!

[Serge_Bliznykov]

Вы написали по убыванию.

нет, не так!
я написал ПО ВОЗРАСТАНИЮ!

самое меньше в m4, самое большее - в m6

а вот то, что Вы их выводите в обратном порядке (сначала m6, потом m5, потом m4):

writeln('m6=',m6:2:2,'  m5=',m5:2:2,'  m4=',m4:2:2);

это уже ваше личное дело.

Разобрался! Поменял знаки, всё пошло=)

ну и славно!