filter

//procedure _account.filterEmptyArray(var arr: T2DStringArray); overload;
procedure ATSAFilter(var arr: T2DStringArray);
var
  h, i, l, j, c: Integer;
begin
  h := High(arr);
  for i := 0 to h do
  begin
    c := 0;
    l := High(arr[i]);
    for j := 0 to l do
      if ((arr[i][j] <> '') and (arr[i][j] <> ' ')) then
      begin
        arr[i][c] := arr[i][j];
        c := (c + 1);
      end;
    SetLength(arr[i], c);
  end;
end;

var
  ATSA: T2DStringArray;

begin
  SetLength(ATSA, 3);
  ATSA[0] := ['Test1', '', 'Test2', ' ', '', 'Test3', ' '];
  ATSA[1] := [' ', 'Test4', '', '', 'Test5', 'Test6', ' ', ' ', 'Test7'];
  ATSA[2] := ['', 'Test8', ' ', 'Test9', ''];
  ATSAFilter(ATSA);
  WriteLn(ToStr(ATSA));
end.