Напишите программу которая вычеслит длину самого короткого слова в предложении из 3х слов в Turbo Pascal

Мне именно чтобы как в задачи описано

Question

Мне именно чтобы как в задачи описано

Македонин Смб · Accepted Answer

Эта программа вычисляет длину самого короткого слова в предложении не содержащем знаков препинания. В предложении может быть любое количество слов

var
i,min,tmin,n:integer;
a:string;

begin
readln(a);
n:=length(a);
min:=1000; tmin:=0;
for i:=1 to n do
if a[i]<>' ' then
tmin:=tmin+1
else
begin
if (tmin<>0) and (min>tmin) then min:=tmin;
tmin:=0;
end;
if (tmin<>0) and (min>tmin) then min:=tmin;
writeln(min)
end.