работа со строками.

[Женечка92]

Помогите разобраться. В строке имеется одна точка с запятой (. Подсчитать количество знаков до точки с запятой и после нее. голову сломала..

[maLoy*508]

читаем стандартный хелп

var S: string;

begin
S := ' 123.5';
{ Convert spaces to zeros }
while Pos(' ', S) > 0 do
S[Pos(' ', S)] := '0';
end;

функция length(string)возвращает длину строки