Bubble sort em Pascal 1.

Program Bubble_sort;
uses crt;

const MAXNRO = 10;

var Nro : array [1..MAXNRO] of extended;
    NroAux : extended;
    C1, C2 : word;

begin
Nro[1] := 10;
Nro[2] := 5;
Nro[3] := 3;
Nro[4] := 6;
Nro[5] := 4;
Nro[6] := 9;
Nro[7] := 8;
Nro[8] := 2;
Nro[9] := 7;
Nro[10] := 1;

for C1 := 1 to MAXNRO do
 for C2 := 2 to MAXNRO do
  if Nro[C2 - 1] > Nro[C2]
  then begin
        NroAux := Nro[C2 - 1];
        Nro[C2 - 1] := Nro[C2];
        Nro[C2] := NroAux;
       end;

clrscr;
for C1 := 1 to MAXNRO do
 writeln(C1 : 3,' : ',Nro[C1] : 2 : 2);
readkey;

end.