Массивы и подпрограммы.

[sanyok_amd]

День добрый, есть задачка из курсовой по Delphi, так как я чайник то никак не получается правильно написать код, буду рад любой помощи. Спасибо.

program prog4;

{$APPTYPE CONSOLE}
{Задание 4

Вычислить сумму элементов каждой из матриц А(15,15) и В(30,30) без учета элементов главной диагонали. Задачу решить с использованием подпрограммы. }


{$APPTYPE CONSOLE}
uses
SysUtils, Russian;
const
n=15; //Число строк и столбцов матрицы А.
m=30; //Число строк и столбцов матрицы В.
var
A:array [1..n,1..n] of integer; //Массивы для хранения матриц.
B:array [1..m,1..m] of integer;
C : array of array of integer;
i, j : integer;



function summa(i,j:integer):integer; //Считает сумму элементов матрицы C без учёта главной диагонали


begin //Сумма элементов
result:=0; //Обнуляем сумму
for i:=0 to High(C) do //Цикл по строкам
begin
for j:=0 to High(C[0]) do //Проходим в цикле по элементам строки
begin
if i<>j then //Исключаем главную диагональ
result:=result+C[i,j]; //Суммируем элеметы матрицы
end;
end;

end;

begin // Начало основной программы.
randomize;

writeln (Rus(' Исходная матрица A'));
for i:=1 to n do //Создание исходной матрицы А.
begin
for j:=1 to n do
begin
A[i,j]:=25-Random(50);
Write (A[i,j]:5);
end;
WriteLn;
end;

writeln (Rus(' Исходная матрица B'));
for i:=1 to m do //Создание исходной матрицы B.
begin
for j:=1 to m do
begin
B[i,j]:=25-Random(50);
Write (B[i,j]:5);
end;
WriteLn;
end;

SetLength(C,n,n);
C:=A;

Writeln (summa(C));



Writeln(' press Enter for exit, please...');
readln;
end.