Ребят помогите по двумерным массивам решить задачу

Question

заполнить двумерный массив nxn случайными числами из интервала [-10;10], выяснить что больше сумма элементов лежащих над главной диагональю или под главной диагональю

Юрий Бабий · Accepted Answer

КАК-ТО ТАК.. . если не хватает точек или операторных скобок - добавишь.. .

Program massiv10; 
Const n=5; 
 
Var 
i, j, S1, S2: Integer; 
Begin 
For i:=1 To n Do 
For j:=1 To m Do 
x[i,j]:=Random(20)-10; 
For i:=1 To n Do 
Begin 
For j:=1 To n Do Write(x[i,j]:5); 
Writeln; 
end; 
S1:=0; S2:=0; 
For i:=1 To n do 
For j:=1 to n do 
If i>j to S1:=S1+A[i,j] else 
If i<j>S2 to writeln(‘Сумма над главной диагональю больше ‘, S1) else writeln(‘Сумма над главной диагональю больше ‘, S2); 
End.