Динамическая память, Помогите доделать программу. Опции

[Neon6868]

Задание: В основной программе зарезервировать память в куче для размещения 100 вещественных значений.В вектор Х записать указатели на каждое значение. Сформировать случайные вещественные числа и записать их в динамическую память. Считая, что все элементы вектора Х отличны от NIL, описать процедуру uniquex(x), которая в векторе Х все элементы, ссылающиеся на равные числа, заменяет на первый из этих элементов.

Вот программа, но я не могу сделать эту процедуру.Подскажите кто-нибудь как её делать?

Код

Program DP;
type
  preal=^real;
  vector=array[1..100] of preal;
var
  x:vector;
  i:integer;
procedure unique(x:vector);
var
  i:integer;
  mx:real;
  a:array[1..100] of integer
begin
end;


begin
  new(x);
  randomize;
  for i:=1 to 100 do begin
    new(x^[i]);
    x^[i]^:=random(100);
    write('   ',x^[i]^:5:2);
  end;

  dispose(x);
end.

[volvo]

Проблем не было, потому что я не стал делать:

for i := 1 to n do dispose(x^[i]); { <--- Вот это ...}
dispose(x);

Как только ты это добавишь, проблема сразу проявится...

А если не добавлять - то... Однако, у тебя сейчас утечка памяти в программе Попробуй добавить пару memavail:

begin
  writeln('Доступно памяти: ', memavail);
  new(x);

  { здесь - все как и было раньше ... }

  dispose(x);
  writeln('Доступно памяти: ', memavail);
end.

и сравни 2 значения... Вот и memory leak...