Помогите найти ошибку в паскале ABC

program albert ;
Type mas-array[1..100] of real ;
var x,y:mas;
A,B,XN,XR,DX:real;
i,N:byte;
begin writeln('A,B,XN,DX,N');
readln(A,B,XN,DX,N);
i:=1;
x:=XN;
for i:=1 to N do begin
x[i+1]:=x+DX;
if x<0.5 then
y:=x*x/sqrt(a*x+s)
else y:=exp(b*e*ln(ax(i)));
writeln('x[',i,']=',x:10:5,' ','y[',i,']=',y:10:5);
end;
end.
,
,
,
,
,
,
Мне пишет что "Ошибка: ожидалось неравенство "=""