ошибка 207!!!!!!!

program Kursovoi_proekt;
Uses Crt;
var
prof,sumQ:array[-10..10] of real;
Za,Ha,mass:array[1..3] of real;
magpost,si,co,y:real;
icxod,reshenie:text;
h,J,x,m,l,r,z:real;
k,i:integer;
procedure Znam(var zn:real);
begin
zn:=sqrt(exp(-5*abs(ln(sqr(h)+sqr(prof[i])))));
end;
begin
ClrScr;
assign(reshenie, 'D:\var2\reshenie.txt');
rewrite(reshenie);
assign(icxod, 'D:\var2\icxod.txt');
reset(icxod);
read(icxod,r,J);
for k:=1 to 3 do
                 begin
mass[k]:=r;
writeln(reshenie, 'pri h=',mass[k]);
 [COLOR="Red"]   for i:=-10 to 10 do begin
y:=r/4;
magpost:=4*Pi*exp(-7*abs(ln(10)));
prof[i]:=i*y;
Znam(z);
Za[i]:=magpost/4/Pi*4/3*Pi*sqr(r)*r*J*((2*sqr(h)-sqr(prof[i])))/z;
Ha[i]:=magpost/4/Pi*4/3*Pi*sqr(r)*r*J*3*h*prof[i]/z;
write(reshenie, 'Za[',i,']=',Za[i],'  ');
writeln(reshenie, 'Ha[',i,']=',Ha[i]);[/COLOR]
                        end; writeln(reshenie);
                 end;  close(reshenie);
ReadKey;
end.

for i:=-10 to 10 do begin
y:=r/4;
magpost:=4*Pi*exp(-7*abs(ln(10)));
prof[i]:=i*y;
Znam(z);
Za[i]:=magpost/4/Pi*4/3*Pi*sqr(r)*r*J*((2*sqr(h)-sqr(prof[i])))/z;
Ha[i]:=magpost/4/Pi*4/3*Pi*sqr(r)*r*J*3*h*prof[i]/z;
write(reshenie, 'Za[',i,']=',Za[i],'  ');
writeln(reshenie, 'Ha[',i,']=',Ha[i]);