Помогите! Все компилирует, но выбивает ошибку 207 с плавующей запятой

Program Generalna;
uses crt;
Const Len=100;
Type
mtr=array[1..Len,1..Len] of real;
mas=array[1..Len] of real;
var
i,j,m,n:integer;
k:byte;
L:byte;
a:mtr;
x:mas;
c:real;
u:real;
Begin
Clrscr;
writeln('Input rozmirnist matriz A: number M and N');
write('m=');
read(m);
write('n=');
read(n);
writeln('Input elementu a[i,j] matriz A');
for i:=1 to m do
for j:=1 to n do
a[i,j]:=(Abs(3.7-j)-2)*exp(((5)*ln(i+j)))*(ln(abs(j-i))/ln(10))-(abs(5.3-exp(2*j))*exp(((j)*ln(-2))));
ClrScr;
write('output elements a[i,j] matriz A');
writeln;
writeln;
for i:=1 to m do
Begin
for j:=1 to n do
write ('a[',i,',',j,']=', a[i,j]:10:7,'');
writeln;
end;
L:=1;
for i:=1 to m-1 do
Begin
for j:=1 to n do
Begin
c:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=c;
end;
L:=L+1;
end;
writeln(' transposed matrix');
writeln;
for i:=1 to m do
Begin
for j:=1 to n do
write('a[',i,',',j,']=', a[i,j]:10:7,'');
writeln;
end;
K:=1;
for i:=1 to m do
for j:=1 to n do
if a[i,j]<2 then
Begin
x[k]:=a[i,j];
k:=k+1;
end;
writeln(' Massiv X');
writeln;
for i:=1 to k-1 do
write('x[',i,']=',x[i]:10:7,'');
u:=1;
for i:=1 to k-1 do
u:=u*(x[i]+x[k-i]);
writeln;
writeln;
write('function: u=',u:10:7);
Repeat Until KeyPressed
End.