Посчитать среднее количество букв в словах предложения - Free Pascal

var
    s: String;
    wordCount, letterCount: Byte;
begin
    Write('s='); ReadLn(s);
    s := s + ' '; wordCount := 0; letterCount := 0;
    while ((Length(s) > 0) And (s[1] = ' ')) do
        Delete(s, 1, 1);
    while (Length(s) > 0) do
    begin
        while ((Length(s) > 0) And (s[1] = ' ')) do
            Delete(s, 1, 1);
        Inc(letterCount, Pos(' ', s) - 1);
        Inc(wordCount);
        Delete(s, 1, Pos(' ', s));
    end;
    if (wordCount <> 0)
    then
        WriteLn('AVR=', (letterCount / wordCount):0:3)
    else
        WriteLn('Not found any word!');
end.