Нет индексного свойства по умолчанию для типа real - Pascal

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

Нет индексного свойства по умолчанию для типа real. Изменение типа переменных не принесло успехов. Просьба помочь разобраться в ошибке, возможно исправить код. За ранее спасибо.

var
x,r1,q1,p1,y,i,z:real;
Begin
p1:=1; q1:=1; r1:=1; {инвариант: x[p1]..x[p], y[q1]..y[q], z[r1]..z[r]содержат общий элемент}
while not x[p1]=y[q1] and y[q1]=z[r1] do begin
if x[p1]<y[q1] then begin
p1:=p1+1;
end
else if y[q1]<z[r1] then 
begin
q1:=q1+1;
end 
else if z[r1]<x[p1] then 
begin
r1:=r1+1;
end 
else 
begin
end;
end; {x[p1] = y[q1] = z[r1]}
writeln (x[p1]);
end.

Вот условие: Некоторое число содержится в каждом из трех целочисленных неубывающих массивов x[1] <= ... <= x[p], y[1] <= ... <= y[q], z[1] <= ... <= z[r]. Найти одно из таких чисел. Число действий должно быть порядка p + q + r.

Решение задачи: «Нет индексного свойства по умолчанию для типа real»

Листинг программы

for p:=1 to n do Read(x[p]); ReadLn;

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

Переменная n представляет собой количество элементов в массиве x.
Цикл for выполняется от 1 до n (не больше 20).
На каждой итерации цикла считывается значение элемента массива x с индексом p и сохраняется в переменную x[p].
После окончания цикла считывается символ новой строки с помощью функции ReadLn.