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

[Op1nG.Spark]

дано предложение, определить средне арифметическую длину слов строки.
я вот подсчет количества символов в строке вроде нашел.если не правильно исправьте
подскажите как средне арифметическое подсчитать???

Procedure Button1Click
var
s,sim:string;
k:integer;
begin
s:=edit.text;
sim:=edit2.text;
k:=0;
n:=length(s);
for i:=1 to n do begin
b:=Copy(s,i,length(s));
if b:=sim then k:=k+1;
end;

[_Alerter_]

Вводишь две целочисленные переменные. Просматриваешь посимвольно строку, при этом, если текущий символ - буква или цифра, то увеличиваешь первую переменную на единицу, если текущий символ пробел, то увеличиваешь вторую переменную на единицу. После прохода до конца строки в первой переменной будет количество символов в строке, а во второй - (количество слов строке -1), увеличиваешь вторую переменную на единицу и делишь первую переменную на вторую, результат будет ответом. Алгоритм будет работать при условии, что между словами один пробел

[Op1nG.Spark]

Мне всего лишь нужно средне арифметическую длину слов строки предложения .как написать этот алгоритм?

[Utkin]

Пост #2 на Вашем мониторе не отображается?
Вариант №2 - в цикле выделять каждое слово и складывать количество символов. Затем поделить на число слов. Тот же вид только сбоку.

[Op1nG.Spark]

Как делать я понял, я не могу написать сам код