[Kapitoshka438]

Код:

var
  Mas: array[1..N, 1..M] of Double;
  I, J: Integer;
  A, B: Double;

procedure DeleteElement(R, C: Integer);
var
  I, J: Integer;
begin
  for I := R to N do
  begin
    for J := C to M - 1 do
      C[I, J] := C[I, J + 1];
    if I < N then
      C[I, M] := C[I + 1, 1];
  end;
  C[N, M] := 0;
end;

begin
...
for I := 1 to N do
  for J := 1 to M do
    if (Abs(Mas[I, J]) >= A) and (Abs(Mas[I, J]) <= B) then
      DeleteElement(I, J);
...
end;

Что-то вроде этого. Могут быть ошибки, код не проверял. Это не самый лучший способ. Здесь много лишних действий выполняется.