Нет индексного свойства по умолчанию для типа 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.

const
  N=10;
var
  x, y, z: array [1..N] of Integer;
  p1, q1, r1: Integer;
...
  while (p1<=N) and (q1<=N) and (r1<=N) and not ((x[p1]=y[q1]) and (y[q1]=z[r1])) do begin
...

const
  N=10;
var
  p, q, r: Integer;
  x, y, z: array [1..n] of Integer;
begin
  { дописать ввод массивов }
  p:=0; q:=1; r:=1;
  while (q<=n) and (r<=n) and (x[p]<>y[q]) and (x[p]<>z[r]) do begin
    Inc(p); if p>n then Break;
    while (q<=n) and (x[p]>y[q]) do Inc(q);
    while (r<=n) and (x[p]>z[r]) do Inc(r);
  end;
  if (p<=n) and (q<=n) and (r<=n) then WriteLn(x[p])
  else WriteLn('Число не найдено');
end.

const
N=10;
var
p, q, r: Integer;
x, y, z: array [1..n] of Integer;
 
begin
writeln ('Введите элементы массива x');
for x[n]:=1 to n do read (x[p]);
writeln ('Введите элементы массива y');
for y[n]:=1 to n do read (y[q]);
writeln ('Введите элементы массива z');
for z[n]:=1 to n do read (z[r]);
p:=0; q:=1; r:=1;
...

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