Даны 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.

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