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

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.