Задачка на двумерный массив

uses crt;
var matr:array[1..50,1..50] of integer;
    l,m,i,j,imn:byte;
    sm,mn:integer;
begin
clrscr;
randomize;
write('l=');readln(l);
write('m=');readln(m);
writeln('Vvedite ',l*m,' elementov matricy:');
for i:=1 to l do
for j:=1 to m do
  begin
    write('matr[',i,',',j,']=');
    readln(matr[i,j]);
  end;
clrscr;
writeln('Ishodnaya matrica:');
for i:=1 to l do
  begin
    for j:=1 to m do
    write(matr[i,j]:4);
    writeln;
  end;
mn:=maxint;imn:=1;{за мин примем макс число типа integer}
for i:=1 to l do
  begin
    sm:=0;
    for j:=1 to m do
    if matr[i,j]>0 then{если в строке есть положительные}
    sm:=sm+matr[i,j];{складываем}
    writeln('Summa v stroke ',i,'=',sm);{выводим}
    if sm<mn then{если сумма меньше всех предыдущих}
      begin
       mn:=sm;{это мин}
       imn:=i;{номер строки}
      end;
  end;
  writeln;
writeln('Min summa v stroke ',imn);
readln
end.