[Shaft]

Очень странный код.
1 - индексация массива начинается с 1 а цикл с 0, access violation же, не?
2 - Массив mass как используется?
3 - Размер Массива B по-моему маловат, если я все правильно понял.
4 - Чему равно K? откуда берется значение?

В общем чет как-нибудь так наверное:

Код:

procedure TForm1.btn1Click(Sender: TObject); 
const n=10;
var
  mass{???},A: array[0..n,0..n] of Integer;
  B: array[0..120]of Integer;
  i, m, j, K: Integer;
begin
  m:= 0;
  K:=5;//???
  randomize();
  mmo1.Lines.Add('K= '+inttostr(K));

  for i:= 0 to n do
    for j:= 0 to n do
    begin
      A[i,j]:= random(100);
    end;

  for i:= 0 to n do
    for j:= 0 to n do
    begin
      if(A[i,j] > 0) then
      begin
        B[m] := a[i,j] div K;
        Inc(m);//m:= m+1; ???
      end;
      //if (abs(A[i,j])<=k) and (abs(B[i])<=k) then
        //mmo1.Lines.Add(inttostr(A[i,j]));
      //mmo1.lines.Add(inttostr(B[m]));
    end;

    for i:=0 to m do
      mmo1.lines.Add(inttostr(B[i]));
end;