В программе ошибка, а какая именно не могу понять. Составить программу для вычисления элементов одномерного массива по формуле

k=1,2,...,n.
Program Program3;
var i,j,k,n,m:integer; S:real;
    b:array [1..100] of real;
    a:array [1..100,1..100] of integer;
begin
writeln('Введите m и n');
readln(m,n);
S:=0;
for i:=1 to n do
for j:=1 to n do
begin
writeln('Введите a[',i,',',j,']');
readln(a[i,j]);
S:=S+cos((a[i,j])*(a[i,j]));
end;b[k]:=(ln(k)+sin(k*k+1))/S;
writeln('b[k]= ',b[k]);
end.

program Program3;
 
var
  i, j, k, n, m: integer; S: real;
  b: array [1..100] of real;
  a: array [1..100, 1..100] of integer;
 
begin
  writeln('Введите m и n');
  readln(m, n);
  S := 0;
  for i := 1 to n do begin
    for j := 1 to m do begin
      writeln('Введите a[', i, ',', j, ']');
      readln(a[i, j]);
      S := S + cos((a[i, j]) * (a[i, j]));
    end;
  end;
  writeln;
  writeln('Результат:');
  for k := 1 to n do begin
    b[k] := ln(k) + sin(k * k + 1) / S;
    write(' ', b[k]:0:3);
  end;
end.