Дана строка, состоящая из слов, разделённая пробелами и запятыми, определить длину самого короткого и самого длинного слова. написать программу в 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.