서접에 가시면 자료구조란 책이 많이 돌아댕깁니다.
그 책엔 퀵소트, 버블소트, 셀, 머지 등등등..소트구현하는 로직이 여러방법이 있습니다.
한번쯤 보시면 많은 도움이 될 듯 하네요.

sort 그까이거 대~충....아래처럼 하면 안될까요? ^^


<!--CodeS-->
var
  data : array[1..9] of string = ('A','A','C','C','B','E','F','A','E');

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j : Integer;
  s : String;
  ARec : array[1..9] of string;
begin
  Sort(1,8); // 먼저 배열을 정렬 시키시고...

  j := 1;
  for i := 1 to 9 do // 루프를 돌리면서...같은 값을 빼보죠...
  begin
    IF data[i] <> s Then // 앞에 읽은 배열값과 같은 값이 아니면 배열에 넣쿠...아님 말구..^^;;
    Begin
      ARec[j] := data[i];
      inc(j);
    End;
    s := data[i]; // 지금의 배열값을 s에 기억해두시고....
  end;
end;

// 빠른정렬(Quick Sort)
procedure TForm1.Sort(l, r: Integer);
var
  i, j: integer;
  x, y: String;
begin
  i := l;
  j := r;
  x := data[(l+r) DIV 2];
  repeat
    while data[i] < x do i := i + 1;
    while x < data[j] do j := j - 1;
    if i <= j then
    begin
      y := data[i];
      data[i] := data[j];
      data[j] := y;
      i := i + 1;
      j := j - 1;
    end;
  until i > j;
    if i < r then Sort(i, r);
    if l < j then Sort(l, j);
end;
<!--CodeE-->

담배 넘 많이 피시지 마시구요....즐코하세요 ^^