Нужна помощь в решении задачи на паскале

[Денис_Рябов]

Даны значения трех вещественных переменных a, b и c. Перераспределить
их значения в порядке не убывания, то есть чтобы a ≤b ≤ c.

[Вадим Мошев]

Начните решать задачу самостоятельно. Если что-то не будет получаться, показывайте то, что сделали, задавайте конкретные вопросы.

[newerow1989]

var a,b,c,z:real;
begin
   Write('a = '); Readln(a);
   Write('b = '); Readln(b);
   Write('c = '); Readln(c);
   If a>b then
   begin
      z:=a;
      a:=b;
      b:=z;
   end;
   If a>c then
   begin
      z:=a;
      a:=c;
      c:=z;
   end;
   If b>c then
   begin
      z:=b;
      b:=c;
      c:=z;
   end;
   Writeln(a:5:8,'  ',b:5:8,'  ',c:5:8);
   Readln;
end.