проблема с sting0М...

[OmgA]

Дан рядок(string), и в нем нужно выбрать самое короткое слово, дополнительные рядки не использовать.

Пробовал делать через переборку с пробелом.
Но используя цыкл for .. to не получается обойтись без дополнительного рядка, знаю что нужно делать через while Фно в этой теме не силен, так что сам сделать не могу, помогите, а?)

[Mad_Cat]

//pascal/delphi 
var  min:integer;
    st,buf,ms:string;
begin
 min:=9999;
 readln(st);
 st:=trim(st);
 while trim(st)<>'' do begin
  st:=st+' ';
  buf:=Copy(st,1,pos(' ',st)-1);
  Delete(st,1,Pos(' ',st));
  if length(buf)<min then begin min:=Length(buf);ms:=buf;end;
   st:=trim(st);
 end;
 writeln('MIN=',ms);
 readln;
end.
 end;
 
 writeln('MIN=',min);
 readln;
end.

[OmgA]

Спасибо большое!

[OmgA]

Только пишет что не найден файл crt.dcu воот(

[Mad_Cat]

Только пишет что не найден файл crt.dcu воот(

а для кого же написано то

//pascal

под Delphi поправил

[OmgA]

Runtime error 6 at 00403D83
Воот(