Сортировка массива с исключением одинаковых чисел.

[A-IX-2]

Собственно как возможно такое реализовать? Я пытался следующим образом, ничего не вышло:

  For j:=1 to StringGrid1.RowCount-1 do
  For i:=1 to StringGrid1.RowCount-j do
  if (p[i]<p[i+1]) and (p[i]<>p[i+1]) then
  begin
    buf:=p[i];
    p[i]:=p[i+1];
    p[i+1]:=buf;
  end;

[ArtGrek]

еще один цикл надо вложить перед тем как сохранять, что б проверять есть ли ето число

[A-IX-2]

Нашел тут на форуме сообщение

для такого дела нада юзать динамические массивы.. и тогда алгоритм такой..
1) находим элемент который повторяется (его номер n);
2) смещаем все элементы массива начиная с n+1 до конца на 1 позицыю в лево (c[n]:=c[n+1]);
3) уменьшаем размер массива ( SetLength(c, Length(c)-1) );

но что-то не получается второй пункт сделать

  For i:=1 to StringGrid1.RowCount-1 do
  if p[i]=p[i+1] then
  begin
    for i:=i+1 to StringGrid1.RowCount-1 do
    p[i]:=p[i+1];
    SetLength(p,Length(p)-1);
  end;

[ArtGrek]

что то в етом роде

for i := 0 to Count - 2 do
  for j := 1 to Count - 1 do
    for k := 0 to i do
      if mas[k] = mas[j] then mas[j].delete
      else begin
        buf:=p[i];
        p[i]:=p[i+1];
        p[i+1]:=buf;
     end;