Нахождение самого длинного слова в предложении.

Uses CRT;

Var MaxL,C : String;

Pb : Byte;

Begin

ClrScr;

WriteLn('Введите предложение:');

ReadLn(C);

MaxL := '';

While Pos(' ',C) <> 0 Do Begin

Pb := Pos(' ',C);

If Length(MaxL) < Length(Copy(C,1,Pb-1)) Then MaxL := Copy(C,1,Pb-1);

Delete(C,1,Pb);

End;

If Length(MaxL) < Length(C) Then MaxL := C;

WriteLn;

WriteLn('Вывод самого длинного слова');

WriteLn(MaxL);

ReadLn;

End.