Создать подпрограмму функции, которая возвращает одномерный массив

uses crt;
type mtr=array[1..10,1..10] of integer;
     mas=array[1..10] of integer;
function f(a:mtr;m,n:integer;var k:integer):mas;
var i,j:integer;
    f:boolean;
begin
k:=0;
for i:=1 to m do
 begin
  f:=true;
  j:=2;
  while(j<=n)and(a[i,j]*a[i,j-1]<0) do inc(j);
  if j>n then
   begin
    inc(k);
    result[k]:=i;
   end;
 end;
end;
var a:mtr;
    b:mas;
    m,n,k,i,j:integer;
begin
repeat
writeln('Введите количество строк и столбцов матрицы от 2 до 10');
readln(m,n);
until(m in [2..10])and(n in [2..10]);
writeln('Введите элементы матрицы, в том числе знакочередующие строки');
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Введенная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
b:=f(a,m,n,k);
writeln('Массив номеров знакочередующихся строк');
if k=0 then writeln('Таких строк нет')
else
for i:=1 to k do
write(b[i]:3);
end.