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

[kuy]

Здравствуйте, помогите пожалуйста написать код для Делфи такой задичи:
Определить среднее количество букв в словах строки S.
(на форуме найти не смог, если тема такая была уже, киньте ссылку пожалуйста)

[Leshii]

Делаеш цикл для ввода количества строк

for i:=1 to n do

потом цикл

for i:=1 to length(s);

где length(s) длина строки.

После сумируеш строки(себто их длина) и делиш их на количество строк.

По идее так.Могу ошибаться.

Ну и останется интерпретировать под лексику делфи.

[kuy]

Leshii, это чуть не то что мне нужно, так как строка одна и мне нужно среднее количество букв в словах строки(например:'good morning', ср. кол. букв 5.5)
Мои наробки:

program ser_kil_lit;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 s:string;
 i,counter:integer;
begin
write('text:'); readln(s);
counter:=0;
while trim(s)>' ' do
begin
 s:=trim(s);
 s:=s+' ';
 inc(counter);
 delete(s,1,pos(' ',s));
end;


readln;
end.

Сдесь находится количество слов в строке, как я понимаю дальше нужно найти количество букв в строке и розделить на количество слов.. Вобщим мне нужен код чтобы подщитать все символы(буквы), кроме символов [' ','.',',',':',';','!','?']

[TinMan]

Вот как-то так можно..

  w:= 0;
  l:= 0;
  NewWord:= true;
  for i:=1 to Length(s) do
    if UpCase(s[i]) in ['A'..'Z'] then begin
      inc(l);
      if NewWord then begin
        inc(w);
        NewWord:= false
      end
    end
    else NewWord:= true;
  a:= l/w;