Pascal Bubble Sort

Question

私は、プログラムが10単語を受け入れ、降順（Z-Aからアルファベット順）で表示するプロジェクトを持っています。 バブルソートを使用しています。 ここまで私が知っていることは次のとおりです。 プログラムサンプル; はcrtを使用します。

TYPE 
    no._list=ARRAY(1...10)OF REAL; 
CONST 
    no.:no._list=(20.00,50.50.35.70....); 
VAR 
    x:INTEGER; 
    small:REAL; 

BEGIN clrscr: 
    small:=no.(1); 
    FOR x:=2 TO 10 DO 
     IF small>number(x); 
     writeln('Smallest value in the array of no.s is',small:7:2); 
END 

私は本当にこれを行う方法を知らないし、いくつかの助けを使用することができます。ここで

Answer 1

ソート原理を説明バブルのアリスター・クリスティによってビデオだ： http://codegearguru.com/index.php?option=com_content&task=view&id=64&Itemid=1

パスカルにおけるアルゴリズムはhttp://delphi.wikia.com/wiki/Bubble_sort

Answer 2

function BubbleSort(list: TStringList): TStringList; 
var 
    i, j: Integer; 
    temp: string; 
begin 
    // bubble sort 
    for i := 0 to list.Count - 1 do begin 
    for j := 0 to (list.Count - 1) - i do begin 
     // Condition to handle i=0 & j = 9. j+1 tries to access x[10] which 
     // is not there in zero based array 
     if (j + 1 = list.Count) then 
     continue; 
     if (list.Strings[j] > list.Strings[j+1]) then begin 
     temp    := list.Strings[j]; 
     list.Strings[j] := list.Strings[j+1]; 
     list.Strings[j+1] := temp; 
     end; // endif 
    end; // endwhile 
    end; // endwhile 
    Result := list; 
end;