Динамические переменные: найти наибольшее из чисел, на которые ссылаются элементы вектора

program max;
type
vector = array[1..100] of ^real;
var
x:vector;
i:integer;
j:real;
begin
j:=0;
new(x);
for i:=1 to 100 do begin
Read(x[i]^);
if x[i]^>j then j:=x[i]^;
end;
dispose(x);
end.

program max;
type
vector = array[1..100] of ^real; //объявление массива динамических переменных
var
x:vector;
i:integer;
j:real;
begin
j:=0;
for i:=1 to 100 do begin
new(x[i]); // выделение памяти для динамической переменной
Read(x[i]^); // ввод ДП
if x[i]^>j then j:=x[i]^; // поиск максимального значения в массиве ДП
dispose(x[i]); // освобождение памяти от ДП
end;
Writeln(j); // вывод максимального значения в массиве ДП
end.