Даны 3 числа - a, b, c . упорядочить их по возростанию. решите

var a:array [1..100] of real;
i,j,n:integer;
t:real;
Begin
    n:=3;
    for i := 1 to n do
        read(a[i]);

    for i:=1 to n-1 do
      for j:=i+1 to n do
        if a[i]<a[j] then begin
           t:=a[i];
           a[i]:=a[j];
           a[j]:=t;
        end;

    for i:= 1 to n do
        write(a[i],'' );
End.

универсальный метод через массивы. сейчас работает для трех элементов