Нужна прога в паскале.

[Guest]

Ввести массив R из 5 элементов.Сформировать матрицу А 5х5 по формуле
1+sin(1.5i+j) если i>j
1-sin(1.5i+j) иначе
Выделить в вектор Р элементы главной диагонали матрицы А и,используя подпрограммы ,упорядочить Р. Вычислить S=RxP и матрицу B=SxA.
используя подпрограмму вычислить D>A+B.
Тип S упорядочить вектор А из N элементов по возрастанию методом "пузырька".
2)Сложение матриц.
lease:

 

[Guest]

Вот что у меня имеется дальше не знаю что делать,помогите.Желательно расписать а то я не очень в программировании)))

Program avsfdvg;
uses crt;
var 
r,p:array[1..5]of real; 
a:array[1..5,1..5]of real;
i,j:integer;
begin
writeln('vvedite elementi massiva:');
for i:=1 to 5 do
read(r[i]);
for i:=1 to 5 do
for j:=1 to 5 do
if i>j then
a[i][j]:=1+sin(1.5*i+j) else
a[i][j]:=1-sin(1.5*i+j);
for i:=1 to 5 do
p[i]:=a[i][i];