#pas
for i1 := 0 to int1 do begin Result := Result + ',' + Cmp(s[i1]); s[i1] := ''; end;//вывод результата в формате "%результат сравнения блока#,"

#pas
function THIIf_Else_Multi.Cmp(Mask:string):string;
//...
begin
  SetLength(op,0); SetLength(OpTyp,0); int := 0; i := 0; ot := 0; Cn := 0;
  while i < length(Mask) do begin//определение операндов
    inc(i);
    SetLength(OpTyp,(ot + 1));
    SetLength(op,i + 1);
//...

#pas
function THIIf_Else_Multi.MultiCompare(Maska:string):string;
//...
begin
  SetLength(s,0);
  Result := ';
  int1 := 0;
  Cn1 := 0;
  for i1 := 1 to length(Maska) do 
  begin
    SetLength(s,int1);
//...

#pas
for i1 := 0 to slen do begin op[i1] := '; OpTyp[i1] := -1; s[i1] := '; end;

#pas
for i1 := 0 to slen-1 do begin op[i1] := '; OpTyp[i1] := -1; s[i1] := '; end;

#pas
Replace(s, #13#10, #13);
gettok(s, #13);

#pas
lst.Text := s;
for i := 0 to lst.Count-1 do
  // lst.items[i] ...