Матрицы

[Рузана]

В матрице С(5х5) элементы, стоящие на главной диагонали, замените минимальным элементом, лежащим ниже главной диагонали

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.

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

[Stilet]

if (C[i,j]<C[j,j])and(i=j) then

И нечего лезть в теоретическую тему.