Помогите доделать задание в паскале!

[neomaximus]

Вот задание:
Строка Т состоит из слов, разделенных запятыми, подсчитать среднюю длину слов

program dlina_slova;
uses crt;
var l,a,b,i,z,k: integer;
    t: string;
begin

  writeln('vvedite stroku'); readln(t);
  for i:=1 to length(t) do if t[i]=',' then inc(z);

  l:= (length(t)-z) div (z+1);
          writeln('sredn99 dlina slova = ',l);
Readkey;clrscr;
end.

[puporev]

1.Убрать ненужные переменные.
2.Поставить на место clrscr;
3.Нельзя использовать div, т.к. например 11 div 3=3, хотя ближе 4, поэтому нужно использовать round;

program dlina_slova;
uses crt;
var i,l,z: integer;
    t: string;
begin
clrscr;
writeln('vvedite stroku'); readln(t);
z:=0;
for i:=1 to length(t) do
if t[i]=',' then inc(z);
l:=round((length(t)-z)/(z+1));
writeln('sredn99 dlina slova = ',l);
Readkey
end.

[Serge_Bliznykov]

чуть поправлю описки:

l:=round((length(t)-z)/(z+1));
writeln('sredn99 dlina slova = ',l);

neomaximus, и вообще непонятно, зачем заводить две темы ;-(((((

[bag]

Позвольте немного вас поправить: среднюю длинну слова вовсе не нужно округлять до целого

[puporev]

Во-первых вопрос спорный, во-вторых так было задумано автором темы.