создание и обработка массивов( проверьте) Опции

[иван 23]

помогите, пожалуйста, исправить ошибки и недочеты
Для заданной квадратной матрицы С вычислить сумму и число элементов матрицы, находящихся под главной диагональю. Исходную матрицу вывести в общепринятом виде. Результаты вывести в произвольной форме.

program exampl;
type
massiv=array[L.100J..100] of real;,;
var
C:Massiv;
i.j:byte;
n,m:byte;
Sm,Min:real;
begin
Writeln('введите количество строк n=');Radln(n);
Writeln('введите количество столбцов m='):Readln(m);
Writeln(введите матрицу С:');
for i:=1 to n do begin
for j:=1 to m do Read(C[i,j]);
readln;
end;
{вывод матрицы}
writeln('исходная матрица C:');
for i:=1 to n do begin
for j:=1 to m do write(C[i,j]:5:2,'');
writeln;
end;
sm:=0;
for i:=1 to n do
for j:=1 to m do if C[i,j]>0 then Sm:=Sm+C[i,j];
Min:=C[1,1];
for i:=1 to n do
for j:=1 to m do if C[i,j]<min then min:=C[i,j];
Writeln( 'сумма и число элементов Sm=',Sm:6:2);
Writeln('минимальный элемент min:5:2);
End.

[Julia]

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];
Про минимальный элемент тоже ничего не написано
И главное, где вы определяете, что элемент лежит ниже главной диагонали?