Frage: Warum funtioniert dieses bublbesort nicht?

[Royale]

Ich hab da mal ne frage: ich versuche ein bubblesort zu programmieren mit delphi 3. Dann schau ich hier in die Hilfe und finde "swapvalues", die delphi 3 nicht kennt. swap funktioniert nicht und dieses programm unten sortiert nicht gescheit und entfernt Zahlen(zahlenreihe 1,5,3,2:daraus wird 1,3,3,2). Warum? ich bin noch neu und hab mal so gar keine Peilung. Bitte helft mir mal. Danke im voraus.


Hier der Quelltext

SQL-Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    memo2: TMemo;
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen}
  public
    { Public-Deklarationen}
  end;

var
  Form1: TForm1;
  zufall : Array[1..200] of integer;
  vergleich: array [1..200] of integer;


   n,x,x1,x2,y:integer;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin
//höchstzahl array
N:= 1;

repeat

      zufall[n]:= trunc(random(100));               //zufallszahlen werden zugewiesen
      memo1.lines.add (inttostr(zufall[n]));       //ausgabe zufallszahlen
      vergleich[n]:=zufall[n];                     //vergleichsarray
      n:=n+1;
until n = 200;



      x:=1;


       repeat
              If zufall[x] > vergleich[x+1] Then           //vergleich
              zufall[x]:=vergleich[x+1];                   //tauschen
              memo2.lines.add (inttostr(zufall[x]));       //ausgabe

              x:=x+1;
       until  x =200;

end;
end.