50 БАЛЛОВ!!!!!!!!! Переделать чтобы упоряд. по возврастанию нач.
с выставки минимального элемента на 1-ое число.

for i:=1 to n do begin a[i]:=random
writeln(a[i],' ');end;
for j:=n-1 down to 1 do do
for i:=1 to j do
if a[i]>a[i+1], then
begin
x:=a[i];
a[i]:=a[i+1];
a[i+1];=x;
end;
writeln;
for i:=1 to do begin; writeln(a[i]);
end.