Номер последнего положительного элемента массива

uses crt;
var m:array[1..100]of integer;
i,n,max,k,a,b:integer;
 
begin
 clrscr;
 write('N-> ');
 readln(n);
 for i:=1 to n do
 begin
  m[i]:=-100+random(201);
  write(m[i],' ');
 end;
 writeln;
 max:=1;
 for i:=1 to n do if m[i]>m[max] then max:=i;
 writeln('MAX - M[',max,']=',m[max]);
 k:=n;
 while (k>0) and (m[k]<=0) do dec(k);
 if k=0 then writeln('В массиве нет положительных элементов') else writeln('Номер последнего положительного элемента - ',k);
 k:=1;
 write('Введите A, B -> ');
 readln(a,b);
 for i:=1 to n do if not ((abs(m[i])>=a) and (abs(m[i])<=b)) then
 begin
  m[k]:=m[i];
  k:=k+1;
 end;
 for i:=k+1 to n do m[k]:=0;
 writeln('Преобразованный массив');
 for i:=1 to n do write(m[i],' ');
 readln;
end.

program dvum_massiv;
var
  a : array [1..100,1..100] of longint;
  i,n,j,m,s,kol_nul : longint;
begin
 write('Введите размеры матрицы  ');
 readln(n,m);
 s:=0;
 kol_nul:=0;
 writeln('Введите матрицу');
 for i:=1 to n do
   for j:=1 to m do
     begin
       read(a[i,j]);
       if a[i,j]<>0 then inc(kol_nul);   {Подсчитываем число ненулевых элементов}
     end;
 write('Число ненулевых элементов равно  ');
 writeln(kol_nul);
 for i:=1 to n do
   begin
     s:=0;
     write('Сумма положительных чётных элементов ',i,'-ой строки равна ');
     for j:=1 to m do
       if (a[i,j] mod 2=0) {если a[i,j] - четное} and (a[i,j]>0) {и a[i,j] - положительное}then s:=s+a[i,j]; {тогда находим сумму}
     writeln(s);
   end;
end.