Для каждой строки массива определить номер последнего элемента, у которого последняя цифра равна 9

program ex1;
uses crt;
const N1=100;N2=100;
type matrix=array[1..N1,1..N2] of integer;
var n,m:integer;
    a:matrix;
    b,k:integer;
procedure RandomMatrix(var a:matrix; var n,m:integer);
var i,j:integer;
begin
write('Введите кол-во строк матрицы ');
readln(n);
write('Введите кол-во столбцов матрицы ');
readln(m);
randomize;
for i:=1 to n do
 for j:=1 to m do
  a[i,j]:=random(2)+9
end;
procedure PrintMatrix(a:matrix; 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]:7);
        writeln;
        end;
end;
 
procedure sa(a:matrix; n,m:integer);
var i,j:integer;
begin
 for i:=1 to n do
  for j:=m downto 1 do
   begin 
   k:=a[i,j] mod 10; k:=abs(k);
   if k=9 then begin 
   writeln('последний элемент в ',i,' строке с последней цифрой 9: ',a[i,j],' его номер: ',i,j);
   break;
   end;
   end;
end;
 
 
begin 
RandomMatrix(a,n,m);writeln;
PrintMatrix(a,n,m);writeln;
sa(a,n,m);
end.