В общем, кто сможет помочь, запнулся на вот таком моменте
Program RumeRgr7
type
Ma=Array[1..20] of real;
My=Array[1..20,1..20] of real;
Mx=Array[1..20] of real;
Er1=Array[1..20] of boolean;
var
Xn, Xk, Dx:real;
a:ma;
I,J,K,N:Integer;
er:er1;
b:real;
Procedure DataIn(N: Integer; var A: ma);
var
I:Integer;
begin
writeln('Vvedite kol-vo elementov massiva');
for I:= 1 to N do
readln(A[I]);
End;
Procedure Tab (B, Xn,Xk, Dx:real; er:er1; a:ma;My:real);
Var
I,J:integer;
X,Y:real;
begin
for J:=1
If J<=k then
a:=Ma[J];
I:=1;
X:=Xn;
Er[J,I]:=0;
Else
End;
repeat
If X<1 then
Y:=(sin(ax/b))/(cos(ax/b))
else if x>0 then
y:=(sqrt(a*a*x*x*x*x+b*b))/(x*x*x)
else Er[J,I]:=1;
Mx[I]:=X; My[J,I]:=Y;
I:=I+1;
X:=X+Dx;
until X>Xk;
end;
end;
Помогите ошибки найти, 1й раз программу пишу)