memo sortting

var
  Form1: TForm1;
  data:array [0..9] of integer;

implementation

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


procedure sort(var data:array of integer);
var
x,y:integer;
begin
for x:=0 to 9 do
  for y:=0 to 8 do
    if data[y]>data[y+1] then
    swap(data[y],data[y+1]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
z:integer;
F:textfile;
begin
assignfile(F,'num.txt');
reset(F);
memo1.lines.clear;
for z:=0 to 9 do
 begin
 readln(F,data[z]);
 memo1.lines.add(inttostr(data[z]));
 end;
closefile(F);
 end;

procedure TForm1.Button2Click(Sender: TObject);
var
z:integer;
begin
memo1.Lines.Clear;
  sort(data);
 for z:=0 to 9 do
  memo1.lines.add(inttostr(data[z]));
  end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
F:textfile;
z:integer;
begin
assignfile(F,'num.txt');

  rewrite(F);
  for z:=0 to 9 do
  writeln(F,data[z]);

  closefile(F);
end;

procedure TForm1.FormActivate(Sender: TObject);
var
z:integer;
F:textfile;
begin
assignfile(F,'num.txt');
reset(F);
memo1.lines.clear;
for z:=0 to 9 do
 begin
 readln(F,data[z]);
 memo1.lines.add(inttostr(data[z]));
 end;
closefile(F);
 end;


end.

今次個個就複雜啦~