Максимальная по модулю разность (Массивы)

[koonee]

Задан массив Xi=tan(i)+1, i=1,2...8 и массив Y, элементы которго вычисляются по правилу:
Yi=X(в квадрате)i, если i - четное;
Yi=sin(Xi/2), если i - нечетное.
Найти максимальную по модулю разность Xi-Yi.

[Девочка-Скандал]

[pascal/delphi]

maxabs:=0;
for i:=1 to 8 do
begin
x[i]:=sin(i)/cos(i)+1;
if odd(i) then y[i]:=sin(x[i]/2)
else y[i]:=sqr(x[i]);
if abs(x[i]-y[i])>=maxabs then maxabs:=abs(x[i]-y[i]);
end;

[koonee]

uses crt;
Var
i:integer;
y,x: real;
begin
for i:=1 to 8 do
begin
writeln ('Введите элемент массива ');
readln (i);
x[i]:=sin(i)/cos(i)+1;
if i mod 2=0 then
y[i]:=SQR(x[i]) else
y[i]:=sin(x[i])/2;
if abs(x[i]-y[i])>=maxabs then
maxabs:=(x[i]-y[i]);
end;
write(maxabs);
end.
Ошибка: переменная x не является именем массива.

Подскажите, где исправить?