[Страдалецъ]

Это вопрос, утверждение или просто мысли вслух?
Если вопрос как реализовать такую функцию, то так:

Код:

procedure SemicolonPos(S: String; var LCount,RCount: Integer);
begin
 LCount := Pos(';', S);
 RCount := Length(S) - LCount;
 Dec(LCount);
end;