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

Question

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. 
, 
, 
, 
, 
, 
, 
Мне пишет что "Ошибка: ожидалось неравенство "=""

Александр · Accepted Answer

for i:=1 to N do begin 
for i=1 to N do begin

Игорь Татаринцев · Answer

не Type mas-array[1..100] of real ; а Type mas = array[1..100] of real ;