заполнить массив состоящие из 50 элементов в автоматическом режиме и выполнить сортировку

Сортировка по возрастанию.Program BiFi;Const n=50;Var a:array[1..n] of real;i,j:integer;k:real;Beginfor i:=1 to n do a[i]:=random(100);for i:=1 to n-1 dofor 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.