type // описание типа
  TDSM = array of array of string;

// инициализация массива
var
  DSM: TDSM;
begin
  ...
  SetLength(DSM,10, 20);
  DoSmthng(DSM);

// передача в функцию/процедуру
procedure DoSmthng([var/const] Arr: TDSM); // var если будем изменять массив, иначе const
var
  i,  j: Integer;
begin
  for i := 0 to High(Arr) do begin // i - строки
    ... 
    for j := 0 to High(Arr[i]) do begin // j - столбцы
      ...
    end;
    ...
  end;
end; 

function Compact(const Source: TStringArray): TStringArray;
var
  Index: Integer;
  Count: Integer;
begin
  Count := 0;
  SetLength(Result, Length(Source));
  for Index := 0 to High(Source) do begin
    if Source[Index] = '' then Continue;
    Result[Count] := Source[Index];
    Inc(Count);
  end;
  SetLength(Result, Count);
end;