1) massiv=array[L.100J..100] of real;,;
Неверное описание
2) if C[i,j]>0
В условии ничего не сказано про то, что элемент должен быть положительным
3) for j:=1 to m do if C[i,j]<min then min:=C[i,j];
Про минимальный элемент тоже ничего не написано
И главное, где вы определяете, что элемент лежит ниже главной диагонали?