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

uses crt;
type mat=array [1..100,1..100] of real;
var i,j,j1,j2,n,m: integer;
    a: mat;
 
procedure GenM(n,m: integer; var z:mat);
begin
for i:=1 to n do
    for j:=1 to m do
        z[i,j]:=random(101)-50;
end;
 
procedure Vyvod(var z:mat);
begin
for i:=1 to n do
    begin
    for j:=1 to m do
        write(z[i,j]:7:1);
    writeln;
    end;
end;
 
function LastPol(z: mat; ns: integer):integer;
var ipol: integer;
begin
ipol:=0;
for j:=1 to m do
    if z[i,j]>0 then ipol:=j;
LastPol:=ipol;
end;
 
begin
writeln('n,m=');
readln(n,m);
writeln('Исходный массив ');
GenM(n,m,a);
Vyvod(a);
writeln('Номера последних положительных элементов каждой строки ');
for i:=1 to n do
    writeln(i,' строка, номер ',LastPol(a,i));
readln;
end.

uses crt;
type mat=array [1..100,1..100] of real;
var i,j,j1,j2,n,m: integer;
    a: mat;
 
procedure ReadM(c: char; n,m: integer; var z:mat);
begin
for i:=1 to n do
    for j:=1 to m do
        begin
        write(c,'[',i,',',j,']=');
        readln(z[i,j]);
        end;
end;
 
procedure Vyvod(var z:mat);
begin
for i:=1 to n do
    begin
    for j:=1 to m do
        write(z[i,j]:7:1);
    writeln;
    end;
end;
 
function LastPol(z: mat; ns: integer):integer;
var ipol: integer;
begin
ipol:=0;
for j:=1 to m do
    if z[i,j]>0 then ipol:=j;
LastPol:=ipol;
end;
 
begin
writeln('n,m=');
readln(n,m);
writeln('Исходный массив ');
ReadM('A',n,m,a);
Vyvod(a);
writeln('Номера последних положительных элементов каждой строки ');
for i:=1 to n do
    writeln(i,' строка, номер ',LastPol(a,i));
readln;
end.