MultiBetween [PascalScript]

function MultiBetween(str, s1, s2: string): TStringArray;
var
  strL, s1L, s2L, o, n, e, r: Integer;
begin
  s1L := Length(s1);
  s2L := Length(s2);
  strL := Length(str);
  if ((s1 <> '') and (s2 <> '') and (strL > (s1L + s2L))) then
  begin
    SetLength(Result, (strL - (s1L + s2L)));
    repeat
      n := PosEx(s1, str, (n + 1));
      if (n < 1) then
        Break;
      e := PosEx(s2, str, (n + 1));
      if (e < 1) then
        Break;
      repeat
        o := n;
        n := PosEx(s1, str, (n + 1));
      until ((n >= e) or (n < 1));
      n := o;
      Result[r] := Between(s1, s2, Copy(str, n, (s1L + (e + s2L))));
      if (Result[r] <> '') then
        Inc(r);
    until ((e < 1) or (n < 1));
  end;
  SetLength(Result, r);
end;

var
  h, i: Integer;
  TSA: TStringArray;
  Text: string;

begin
  ClearDebug;
  WriteLn('MultiBetween() Test1:');
  Text := '<tag>test1<tag>..<tag>test2dgtsgtsgdsgs<tag>....<tag>test3<tag>.....<tag>test4<tag>.....';
  TSA := MultiBetween(Text, '<tag>', '<tag>');
  h := High(TSA);
  for i := 0 to h do
    WriteLn('TSA[' + IntToStr(i) + ']: ' + TSA[i]);
  WriteLn('');
  SetLength(TSA, 0);
  WriteLn('MultiBetween() Test2:');
  Text := '<tag>test1</tag>....<tag>test2dgtsgtsgdsgs</tag>....<tag>test3</tag>.....<tag>test4</tag>.....';
  TSA := MultiBetween(Text, '<tag>', '</tag>');
  h := High(TSA);
  for i := 0 to h do
    WriteLn('TSA[' + IntToStr(i) + ']: ' + TSA[i]);
  WriteLn('');
  SetLength(TSA, 0);
  WriteLn('MultiBetween() Test3:');
  Text := '||*|*||<|<||[|]||>|>||*|*||';
  TSA := MultiBetween(Text, '|', '|');
  h := High(TSA);
  for i := 0 to h do
    WriteLn('TSA[' + IntToStr(i) + ']: ' + TSA[i]);
  SetLength(TSA, 0);
end.