Moin...

...wenn wir schon bei Tipps sind.
Delphi-Quellcode:
var
n, l, l2, i, r, sn : Byte;
p : Integer;
S : String;
S2 : String;
IndexList : TStringlist;
... was hindert dich eigentlich daran den Variablen sprechende Namen zu geben? Nix ist schlimmer als bei fremden Code die Zuordnungen der Variablen zu erkennen.