правильно ли написана программа?и есть ли еще варианты?

 var i,j,k,l,z,n,m:integer;
    mas:array of array of integer;
    mas1:array of integer;
begin
  randomize;
  z:=0;
  label4.caption:='';
  label5.caption:='';
  n:=strtoint(edit1.text);
  m:=strtoint(edit2.text);
  setlength(mas,n,m);
  setlength(mas1,n);
  for i:=0 to n-1 do begin
      for j:=0 to m-1 do begin
          mas[i,j]:=random(200)-100;
          label4.caption:= label4.caption+inttostr(mas[i,j])+#9;
          end;
      label4.caption:= label4.caption+#10;
      end;
  for i:=0 to n-1 do begin
      l:=0;
      for j:=0 to m-2 do begin
           for k:=j+1 to m-1 do
             if mas[i,j]=mas[i,k] then begin mas1[z]:=i+1;
 
                                             label5.caption:=label5.caption+inttostr(mas1[z])+' ';
                                             inc(z);
                                             break;
                                        end;
           if z<>0 then break;
             end;
      end;
  if label5.caption='' then label5.caption:='Таких строк нет!';
  end;