Witam
Prosiłbym o wytłumaczenie tych procedur :
o:=o+inttostr(-noseries+1)+copy(i, j-noseries, noseries-1);
noseries:=1;
if series <> 1 then o:=o+inttostr(series)+a;
if noseries > 1 then begin
if length(o) = 0 then o:=o+inttostr(-noseries)+copy(i, j-noseries-1, noseries)
else o:=o+inttostr(-noseries)+copy(i, j-noseries+1, noseries);
end;
if a <> o[length(o)] then o:=o+inttostr(-1)+a;