[kaizer131]

pesi, уже ближе подправил

Код:

 Count:=Count+LENGTH(S)+2;

на

Код:

 Count:=Count+LENGTH(S)+1;

выделяет всё правильно, но только первое вхождение в каждой строке, остальные не выделяет, попробую доработать