Задача на 2d массивы

const
  nmax=30;
type
  Tmatrix=array[1..nmax,1..nmax] of integer;
var
  a:Tmatrix;
  i,j,n,m:integer;
begin
  repeat
    write('Skolko strok:');
    readln(n);
    write('Skolko stolbtsov:');
    readln(m);
  until (n in [1..nmax]) or (m in [1..nmax]);
  randomize;
  writeln('Ishodnaya matritsa:');
  for i:=1 to n do
    for j:=1 to m do
      begin
        a[i,j]:=-50+random(101);
        write(a[i,j]:4);
        if j=m then
          writeln;
      end;
  writeln;
  for i:=1 to n do
    begin
      j:=n;
      while (j>=1) and (a[i,j]>0) do
        dec(j);
      if j<1 then
        writeln('V ',i,' stroke net otr. el.')
      else
        writeln('Nomer poslednego otr. el. v stroke ',i,': [',i,',',j,']');
    end;
  writeln;
  for j:=1 to m do
    begin
      i:=n;
      while (i>=1) and (a[i,j]>0) do
        dec(i);
      if i<1 then
        writeln('V ',j,' stolbtse net otr. el.')
      else
        writeln('Nomer poslednego otr. el. v stolbtse ',j,': [',i,',',j,']');
    end;
end.