Найти номера последних положительных элементов каждой строки

program Massiv; 
Const
  n=3;
Type
           massiv= array[1..n,1..n] of integer;
var
           mas:massiv;
           i,j,nomer:integer;
procedure vvod(var mas:massiv);
begin
 randomize;
     for i:=1 to n do
       for j:=1 to n do
         mas[i,j]:=random(21)-10;
end;
procedure vivod(mas:massiv);
begin
     for i:=1 to n do
     begin
       for j:=1 to n do
        write(mas[i,j],' ');
       writeln;
     end;
end;
 procedure MyPoisk(mas:massiv);
 begin
   for i:=1 to n do
            begin
                 for j:=1 to n do
                if mas[i,j]>=0 then nomer:=j;
                 writeln('Stroka',i,'posl.pologit=',nomer);
            end;
 end;
Begin
vvod(mas);
vivod(mas);
MyPoisk(mas);
readln;
end.

unit poisk;
interface
Const  n=10;
Type massiv=array[1..n,1..n] of integer;
procedure vvod(var mas:massiv);
procedure vivod(var mas:massiv);
procedure MyPoisk(mas:massiv);
implementation
procedure vvod(var mas:massiv);
var i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
mas[i,j]:=random(21)-10;
end;
procedure vivod(var mas:massiv);
var i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
  write(mas[i,j]:4);
  writeln;
 end;
end;
procedure MyPoisk(mas:massiv);
var i,j,nomer:integer;
begin
for i:=1 to n do
 begin
  nomer:=0;
  for j:=1 to n do
  if mas[i,j]>0 then nomer:=j;
  writeln('Stroka ',i:2,' posl.pologit=',nomer:2);
 end;
end;
end.

program Mass;
uses crt,poisk;
var mas:massiv;
Begin
clrscr;
vvod(mas);
vivod(mas);
MyPoisk(mas);
readln
end.