[Pascal] найти сумму элементов лежащих ниже побочной диагонали

[Рамик]

все ясно! спасибо вам большое!

[Рузана]

i,j:integer;
C:array[1..5,1..5] of integer;
begin
Randomize;
Writeln('Исходная матрица');
for i:=1 to 5 do begin
for j:=1 to 5 do begin
C[i,j]:=Random(50);
Write (' ', C:[i,j]:4);
end;
Writeln; end;
for j:=1 to 5 do
for i:=j to 5 do
if C[i,j]<C[j,j] then
C[j,j]:=C[i,j];
Writeln ('конечная матрица');
for i:=1 to 5 do begin
for j:=1 to 5 do
Write(' ' ,C[j,j]:4);
Writeln; end;
Readln;
end.

нужно чтобы элементы главной диагонали только поменялись, а тут по столбцам все меняется, помогите пожалуйста исправить ошибку

[Димаросс]

помогите решить задачу:

найти главная диагональ+побочная диагональ
и произвведение главной диагонали*побочную диагональ