Вычислить значение функции

type vector= array [1..20] of real;
massiv= array [1..20,1..20] of real;
var x,a:vector;
i,j,n,m:integer;
y:massiv;
procedure p(n,m:integer;x,a:vector;var y:massiv);
begin
for i:= 1 to n do
for j:= 1 to m do
y[i,j]:=(exp(x[i])+(a[j])*ln(x[i]))/(sqr(x[i])+(a[j])*(x[i])+exp(x[i]));
end;
BEGIN
Write ('vvedite chislo znachenii  x u a= ');
Readln(n,m);
for i:=1 to n do
begin
Write ('vvedite x[',i,']=');
Readln(x[i]);
end;
 for j:= 1 to m do
 begin
 Write ('Vvedite a[',j,']=');
 Readln(a[j]);
 end;
 p(n,m,x,a,y);
 Writeln ('         Tablica');
 Writeln('ЪДДДДДДДВДДДДДДДВДДДДДДДВДДДДДДДВДДДДДДДВДДДДДДДї');
 Write('іX  \  aі');
 for i:=1 to m do
 Write(a[i]:3:1,'    ','і');
 Writeln;
 Writeln('ГДДДДДДДЕДДДДДДДЕДДДДДДДЕДДДДДДДЕДДДДДДДЕДДДДДДДґ');
 for i:=1 to n do   begin
 write('і',x[i]:3:1,'    і');
 for j:=1 to m do
 Write(y[i,j]:7:3,'і');
 Writeln;
 end;
 Writeln('АДДДДДДДБДДДДДДДБДДДДДДДБДДДДДДДБДДДДДДДБДДДДДДДЩ');
 readln;
 END.

y[i,j]:=(exp(x[i])+(a[j])*ln(x[i]))/(sqr(x[i])+(a[j])*(x[i])+2);