Определить и напечатать сумму элементов,превышающих заданную величину С-2,5 для каждой строки заданной матрицы А.

[Екатерина 1994]

Программа есть,только нужно решить ее с использованием подпрограмм.
Очень очень нужно!!!
program k;
const n=3;m=4;
var
a:array[1..n,1..m] of integer;
s,i,j:integer;
C:real;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;

c:=2.5;

for i:=1 to n do
begin
S:=0;
for j:=1 to m do
if c<a[i,j] then s:=s+a[i,j];

writeln('Сумма ',I,' строки=',s);
end;

end.

[Hacker19_90]

Что ж вы кроспостите то, девушка?
Нехорошо!

for i := 1 to rows do
begin
  sum := 0;
  for j := 1 to cols do
  if a[i,j] > c then Inc(sum, a[i,j]);
  writeln('#',i, ' ', sum);
end;

[Екатерина 1994]

Спасибо большое)