[Black Raider]

Создать модуль и написать в нем функцию.

Код:

type arr=array [1..10,1..10] of integer;

function sum (a:arr;k:integer):integer;
var sm,i:integer;
begin
sm:=0;
for i:=1 to 10 do
sm:=sm+a[k,i];
result:=sm;
end;