Получить вектор, элементами которого будут номера последних положительных элементов строк матрицы (добавить ввод и вывод матрицы)

program Project3;
 
 
type
  mas = array[1..20, 1..20] of Integer;
  vector = array[1..20] of Integer;
 
procedure input(var a: mas; n, m: Integer);
var
  i, j: Integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := Random(71) - 20;
end;
 
procedure output(a: mas; n, m: Integer);
var
  i, j: Integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:4);    
    writeln;
  end;
  writeln;
end;
 
function indexp(var a: mas; m, str: Integer): Integer;
var
  i, ind: Integer;
begin
  for i := 1 to m do
    if a[str, i] > 0 then ind := i;
  indexp := ind;
end;
 
procedure vect(var a: vector; b: mas; n, m: Integer);
var
  i, j: Integer;
begin
  for i := 1 to n do a[i] := indexp(b, m, i);
end;
 
var
  a: mas;
  b: vector;
  n, m, i, j: Integer;
 
begin
  Write('Количество строк,n=');
  Readln(n);
  Write('Количество столбцов,m=');
  Readln(m);
  Randomize;
  input(a, n, m);
  Writeln('Массив,заполненный случайными числами:');
  output(a, n, m);  
  vect(b, a, n, m);
  Writeln('Полученный вектор:');
  for i := 1 to n do Write(b[i], ' ');
  Writeln;
  Readln;
end.

procedure input(var a: mas; n, m: Integer);
var
  i, j: Integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := Random(71) - 20;
end;
 
procedure output(a: mas; n, m: Integer);
var
  i, j: Integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:4);    
    writeln;
  end;
  writeln;
end;