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

[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]

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

var
  a:array[1..4,1..5] of Integer;

Function min_row(n: integer): integer;
var i, min,j: integer;
begin
  min := a[1,1];
  for i := 1 to 4 do for j:=1 to 5 do
    if min > a[i,j] then min := a[i,j];
  min_row := min
end;

Дальше ошибка в разделе переменных над переменной min_row
Duplicate indentifier(min_row) приходиться её убирать или менять название
вообщем вот что у меня получилось но опять он не хочет сумму считать

program primer;
var
a: array[1..4,1..5] of Integer; i,min,j,sum,minrow,curr_min: integer;
Function min_row(n:integer): integer; var i,j,min: integer;
begin
min:=a[1,1];
for i:=1 to 4 do
for j:=1 to 5 do
if min>a[i,j] then min:=a[i,j]; min_row:=min
end; 
begin
for i:=1 to 4 do for j:=1 to 5 do begin
Write(i,j,': '); readln; end; min:=maxint; for i:=1 to 4 do begin
curr_min:= min_row(i);
if min>curr_min then begin min:=curr_min; minrow:=i;
end;
end; 
sum:=0;
for i:=1 to 5 do sum:=sum+a[minrow,i];
writeln('sum= ',sum);
readln
end.