Вычислить значения функции f(x) в точках x при заданных значениях a

program lab_6;
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]:=(x*exp(-x)+(a*(sqr(x)))/cos(a*x));
end;
BEGIN
 write('введите количество значений x и a=');
  readln(n,m);
   for i:=1 to n do
    begin
     write('введите x[',i,']=');
      readln(x[i]);
    end;
   for j:=1 to m do
    begin
     write('введите a[',j,']=');
      readln(a[j]);
    end;
 p(n,m,x,a,y);
  writeln('   Таблица');
   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.