Дана строка, состоящая из слов, разделённая пробелами и запятыми, определить длину самого короткого и самого длинного слова.

Написать программу в Pascal.

Var a, b, c:integer;

p, n:string;

begin

readln (p)

; For a:=1 to length (p) do

begin

n:=copy (p, a, 1);

If (n=' ') or (n=',') then

begin

If b>c then c:=b;

b:=0

end

else

b:=b+1;

end;

If c=0 then c:=b;

writeln (c);

end.