призвести сортирову выбором по неубыванию элементов ( Фортран)

[kuki1]

извините за быдло код))я только учусь

призвести сортирову выбором по неубыванию элементов( фортран)
подскажите что нужно добавить или изменить чотбы прога заработала

real a(10)
print * ,'vvedite'
read*
 Min=a(i)
 MinI=i
 j=1
 do i=j,n
if (a(j).lt.Min) then
  Min=a(j)
  MinI=j
  endif
   j=j+1
  enddo
a(MinI)=a(i)
a(i)=Min
end

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Smitt&Wesson]

Примерно так:

Код

А ещё так:

.....
    .......
         .......

[Alex11223]

/del.........