Функции для обработки матриц

[Tanchik_Z]

Нужно создать функцию для поиска в каждой строке квадратной матрицы минимального элемента, минимальные эл. записать в одномерный массив.
Как это сделать просто программно я понимаю

for i:=1 to n do begin
min:=mas[i,1];
for j:=1 to n do
if min>mas[i,j] then min:=mas[i,j];
b[i]:=min;
end;

Подскажите, пожалуйста, как это реализовать в виде функции

[alex_fcsm]

function MinMatr(a:Tmas):integer; \\Tmas - строка массива
var i,min:integer;
 begin
  min:=1;
  for i:=2 to n do
   if a[min]<a[i] then min:=i;
  MinMatr:=min;
 end;

[Tanchik_Z]

Огромное спасибо! Очень выручили