Сортировка по возрастанию.
Program BiFi;
Const n=50;
Var a:array[1..n] of real;
i,j:integer;
k:real;
Begin
for i:=1 to n do a[i]:=random(100);
for i:=1 to n-1 do
for j:=i+1 to n do if a[j]<a[i] then begin
                                              k:=a[i];
                                              a[i]:=a[j];
                                              a[j]:=k;
                                              end;
end.