Матрицы Опции

[Shaman]

Для матрицы А (4 строки , 5 столбцов) определить сумму элементов строки, содержащей минимальный элемент матрицы. Для определения номера строки, содержащей минимальный элемент, использовать функцию

program matrisa;
var
a:array[1..4,1..5] of Integer; i,j:Byte; sum,min,Nstr:integer;
begin
for i:=1 to 4 do
for j:=1 to 5 do
begin
Write(i,j,': '); readln(a[i,j]); min:=a[1,1];
if min>a[i,j] then min:=a[i,j]; end;
Write(min); 
readln; 
end;
end.

Помогите у меня тродность в написание функции если кто знает напишите алгоритм и желательно решение
и ещё буду очень признателен если дадите ссылку где можно почитать про функции а то на сайте я прочёл и не очень хорошо понял

Тегами пользуемся для исходников...

[Shaman]

program matrisa;
var
a:array[1..4,1..5] of Integer; 
i,j,n:Byte; 
sum,min:integer;
begin
for i:=1 to 4 do
for j:=1 to 5 do
begin
Write(i,j,': '); readln(a[i,j]); end;
min := a[1,1];
for i:= 1 to 4 do
for j:= 1 to 5 do
if min > a[i,j] then begin
min := a[i,j];
n:=i;
end;
for j:=1 to 5 do sum:=sum+a[n,j]; 
Write('Min element:',min); 
writeln('Summa:',sum); 
readln
end.

Может я что то нетак спрашиваю я вот напсал программу без функции мне эту программу надо с функцией сделать а то что вы предлагаете я не очень хорошо понимаю и не надо писать иди учи теория я прочитал про функции наверно больше чем про остальные разделы