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

[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.

[Serge_Bliznykov]

program dlina_slova;
uses crt;
var i,PrevPos,
    CountWord, SumLengthWord : integer;
    MidSum : real;
    t: string;
begin
  
  writeln('vvedite stroku'); readln(t);

  {в конец строки допишем запятую, если там её нет}
  if t[length(t)]<>',' then t:= t+','; 
  
  {обнулим счётчики}
  CountWord := 0;
  SumLengthWord := 0;
  PrevPos := 1;
  for i:=1 to length(t) do 
    if t[i]=',' then
    begin
      inc(CountWord);
      SumLengthWord := SumLengthWord + (i-PrevPos);
      PrevPos := i+1;
    end;

  WriteLn('Vsego slov = ',CountWord:1);
  WriteLn('Summarnay dlina vseh slov  = ',SumLengthWord:1);
  MidSum := 0;
  if CountWord<>0 then MidSum := SumLengthWord /CountWord;
  Writeln('sredn99 dlina slova = ',MidSum:5:2);
  Readkey;
end.