Задание: В основной программе зарезервировать память в куче для размещения 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.