randomize;
  n:=1;
  while n<=m do
  begin
      i:=random(s1);
      j:=random(s2);
      if a[i+1,j+1]<>'+' then 
         begin
             a[i+1,j+1]:='+';
             inc(n);                
         end;
  end;