Помогите, пожалуйста, с задачей в Delphi!

[Jagoda_Malina]

Очень нужна ваша помощь!!! С Делфи дела никогда не имела, а тут необходимо срочно программку написать. Задача такова: дан массив целых чисел (динамический). Необходимо удалить из него все повторяющиеся числа, упорядочить по убыванию и вывести результат.
Заранее благодарна.

[eoln]

var
  mas: array of integer;
  n, i, j, k: integer;

begin
  randomize;
  write('razmer = ');
  readln(n);
  SetLength(mas, n);//выделяем память
  for i := 0 to n - 1 do
  begin
    mas[i] := random(11) - 5;//автозаполнение
    write(mas[i]:5)
  end;

  for i := 0 to n - 2 do
  for j := i + 1 to n - 1 do
  if mas[j] > mas[i] then
  begin
    k := mas[i];
    mas[i] := mas[j];
    mas[j] := k
  end;//сортировка

  j := 0;
  for i := 1 to n-1 do
  if mas[i] <> mas[j] then
  begin
    inc(j);
    mas[j] := mas[i]
  end;//убираем повторы

  SetLength(mas, j + 1);//обрезаем массив
  writeln;
  for i := 0 to j do write(mas[i]:5);//выводим массив

  SetLength(mas, 0);//освобождаем память
  readln
end.