Максимальная длинна слова Опции

[Евгений123]

Здравствуйте помогите пожалуйста переделать программу так чтобы в итоге выводилось количество символов самого длинного слова, а не само слово.

вот листинг:

program nomer3;
        uses Crt;
var
  z, maxWord: String;
  aStrt, aLen: Integer;
  i: Integer;
begin
  ClrScr;
  Writeln('Введите текст:');
  ReadLn(z);
  maxWord:= '';
  aStrt:= 1;
  aLen:= 1;
  for i:= 2 to Length(z) do
  begin
    if (z[i] = ' ') or
   ((i = Length(z)) and (z[i] <> ' '))
 then
 begin
   aLen:= i - aStrt;
      if (i = Length(z)) then
        inc(aLen);
   if (aLen > Length(maxWord)) then
     maxWord:= copy(z, aStrt, aLen);
   aStrt:= Succ(i);
 end;
  end;
  WriteLn;
  WriteLn('Длинна максимального слова в предложении:');
  WriteLn(maxWord);
  end.

Заранее спасибо!