В каждой строке матрицы Y(5,5) определить последний отрицательный элемент и его индекс

[solodinka2007]

В каждой строке матрицы Y(5,5) определить последний отрицательный элемент и его индекс. Никак не могу понять технологии. Вот сделала кое-какой набросок.

program my6;
uses crt;
const r=5; st=5;
type mas=array[1..r,1..st] of integer ;
var    Y:mas;
  i,j,n:byte;


procedure masuv(X:mas; var r,st:byte);
var i,j:byte;
begin

for i:=1 to r  do
for j:=1 to st do
begin
 X[i,j]:=random(10);

write(x[i,j]:4);   end;

writeln;
i:=1;
while X[i,j]<0 do i:=i+1;
writeln;
writeln('+',X[i]:3);
writeln;
write('index=',i);
end;


end;
end;


begin
clrscr;

masuv(Y,n);
writeln;

 readkey;
 end.

[COLOR="Red"]