Получить новый массив B, каждый элемент которого вычисляется по формуле bi=cosai+cosai2+cosai3+…+cosain

uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;{1 строка матрицы}
     matr=array[1..nmax] of mas;{массив строк}
procedure Obmen(var m:mas;n,k:byte);{процедура обмена}
var j,jmx:byte;
    x:integer;
begin
jmx:=1;
for j:=1 to n do
if m[j]>m[jmx] then jmx:=j;
x:=m[k];
m[k]:=m[jmx];
m[jmx]:=x;
end;
 
var a:matr;
    n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
for i:=1 to n do{по количеству строк вызываем процедуру}
Obmen(a[i],n,i);
writeln('Обменм максимальных в строках с диагональными:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

uses crt;
const nmax=100;
var a,b:array[1..nmax] of real;
    n,i,j:byte;
    x:real;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:6:2);
 end;
writeln;
writeln;
writeln('Новый массив:');
for i:=1 to n do
 begin
  b[i]:=1;
  for j:=1 to i do
  b[i]:=b[i]*cos(a[i]);
  write(b[i]:6:2);
 end;
readln
end.