Вычисление элементов одномерного массива по формуле. Как исправить программу?

const l=20;
var i,j,k,n,m:integer; s1,s2:real;
    c:array [1..100] of real;
    a:array [1..10,1..100] of integer;
begin
   write('Введите n<=20  = '); readln(n);
   write('Введите m<=20 = '); readln(m);
 
   writeln('Заполняем массив a: ');
   for i:=1 to n do
   begin
   for j:=1 to n do
   begin
   a[i,j]:=random(30);
   write(a[i,j]:4);
   end;
   writeln;
   end;
    
    s1:=0;
   s2:=0;
   for i:=1 to n do
   for j:=1 to n do
   s1:=s1+cos(a[i,j]);
   
   for k:=1 to l do
   begin
   s2:=s2+(ln(l[k])+s1)/(l[k]+2);
   c[k]:=s2;
   end;
    
   for k:=1 to n do
   write(c[k]:5:2);
 
end.

for k:=1 to l do
  c[k]:=(ln(k)+s1) / (k+1);

const l=20;
var i,j,k,n,m:integer; s:real;
c:array [1..20] of real; 
 
a:array [1..10,1..100] of integer;
begin
write('Введите n<=10 = '); readln(n);
write('Введите m<=100 = '); readln(m);
for i:=1 to n do
  begin
for j:=1 to m do
  begin   
    a[i,j]:=-50+random(100);
  end;
  end;
for k:=1 to l do
begin
s := 0;
 
for i:=1 to n do
for j:=1 to m do
s := s + cos(a[i,j]);
 
c[k] := (ln(k) + s) / (k + 2);
writeln('c[k] = ',c[k]:0:3);
end;
end.