Динамические переменные - Pascal ABC

Формулировка задачи:

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.

Объяснение кода листинга программы

Объявление массива динамических переменных типа real с размером 100 элементов.
Создание пустого массива x для хранения динамических переменных.
Объявление переменных i и j, где i - целочисленный индекс, а j - реальное значение.
Инициализация j значением 0.
Цикл от 1 до 100, выполняющий следующие действия:
1. Выделение памяти под динамическую переменную с помощью функции new.
2. Ввод значения динамической переменной с помощью функции Read.
3. Если значение текущей динамической переменной больше значения j, то обновление значения j.
4. Освобождение памяти от динамической переменной с помощью функции dispose.
После завершения цикла, вывод значения j с помощью функции Writeln.
Конец программы.