найти среднюю длину слов в массиве строк и заменить нею слова последней строки Опции

[INZA]

найти среднюю длину слов в массиве строк и заменить нею слова последней строки (размерность массива 12)
среднюю длину вроде нахожу а как замену сделать ? как не введу постоянно не правильно помогите пожалуйста

Var S : string; 
NumWords, 
NumLetters, 
k1,k2, 
l : byte;
MiddleLet : real; 
Cond : boolean; 
Begin
Readln(S); 
Writeln('S=',S);
NumWords:=0; 
NumLetters:=0; 
MiddleLet:=0;
k2:=0; Cond:=true;
While Cond do
Begin
k1:=NotSpace(S,k2+1);
If k1=0 then
Cond:=false
Else
Begin
k2:=Space(S,k1+1);
If k2=0 then
Begin
k2:=length(S)+1;
Cond:=false;
End;
l:=k2-k1;
Inc(NumWords); 
Inc(NumLetters,l);
End;
End;
Writeln('кол-во слов=',NumWords,' кол-во букв=',
NumLetters);
If NumWords>0 then
MiddleLet:=NumLetters/NumWords;
Writeln('средняя длина=',MiddleLet:6:1);
End.

Сообщение отредактировано: INZA - 20.12.2010 1:43