Delphi.Матрицы

[specnazkin]

Дана матрица А.Размерность матрицы определяется идентификаторами типа константа.Элементы матрицы задаются с использованием датчика случайных чисел.Диапазон значений:от-10 до 10.На экран вывести первоначальную матрицу и решение.
Задание.
Дана действительная матрица А=(aij)n*m .Определить количество элементов матрицы,которые больше суммы оставшихся элементов своей строки.
Напишите кому не сложно алгоритм,пользуясь языком Delphi.Спасибо!

[Mad_Cat]

for i:=1 to n do begin 
for j:=1 to m do
begin
a[i,j]:=random(21)-10;
write(a[i,j]:5);
end;
writeln;end;
c:=0;
for i:=1 to n do 
 for j:=1 to m-2 do
begin
s:=0;
 for k:=j+1 to m do
 s:=s+a[i,k];
 if a[i,j]>s then inc(c);
end;
writeln(c);

[specnazkin]

спасибо благодарю