1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

unit uData;
interface

uses
  SysUtils, Classes;

type
  TFeld = array[1..8] of integer;
  TDaten = class(TDataModule)
  private
    { Private declarations }
  public
    { Public declarations }
  A : TFeld;
  N : TFeld;
  procedure bubblesort(var A:TFeld;anzahl : integer);
  end;

var
  Daten: TDaten;

implementation

{$R *.dfm}
procedure swap(var x,y:integer);
var merker : integer;
begin
merker:=x;
x:=y;
y:=merker;
end;

procedure TDaten.bubblesort(var A:TFeld;anzahl : integer);
var i,j : integer;
begin
for i:= 2 to anzahl do
for j := anzahl downto i do
if A[j-1]>A[j] then
swap(A[j-1],A[j]);
end;