Задача на Двухмерный массив ... !!! В исходной матрице заменить элементы главной диагонали на единицу...

[M3A7X9]

Дан массив из 64 последовательных элементов {a1, a2,…, a64}.
Для вычисления элементов массива используется формула
ai = a0 + i*h, (1)
где a0 , h – переменные, значения которых индивидуальные для каждого варианта задания.
i – порядковый номер элемента массива.
Необходимо массив представить в виде двумерного, размерностью 8х8 (исходный).
Задать: Цвет фона - белый, цвет символов - черный.
В исходной матрице заменить элементы главной диагонали на единицу, а элементы находящиеся выше главной диагонали на элементы числового ряда (b1, b2,…, bi), рассчитываемые по формуле:
bi = b0- k*f(i),
где b0 , k – переменные, значения которых индивидуальные для каждого варианта задания.
f(x) – cos(x);
i – порядковый номер элемента ряда.
a0 - 0
h - 2
b0 - 5.2
k - 0.6
Полученную матрицу вывести на экран.




uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
i,j,n,tmp,k:integer;
begin
textbackground(white);
textcolor(black);
clrscr;
repeat
write('Порядок матрици 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(20);
write(a[i,j]:4);
end;
writeln;
end;
writeln('Преобразованная матрица :') ;
for i:=1 to n do
begin
for j:=1 to n do
begin
if j=n-i+1 then
a[i,j]:=1;
write(a[i,j]:4);
end;
writeln;
end;
readkey;
end.


дополните код пожалуйста чтоб он рассчитывал по формуле !!!

спасибо заранее !!