Работа со строками

Program n1;
Uses crt;
Var
mst,st:string;
Procedure Poiskshot(Var st,mst:string);
Var
i,n,k,min:integer;
p:string;
Begin
n:=length(st);
i:=1;
min:=n;
mst:='';
While i'<='n do Begin While (St[i]=' ') and (i'<='n) do i:=i+1; p:=''; While (St[i]'<>'' ') and (i<=n) do Begin p:=p+St[i]; i:=i+1; End; if p'<>'''then
Begin
k:=length(p);
if k'<'min then begin min:=k; mst:=p; end; end; end; end; begin clrscr; Writeln('vvod stroki'); readln(st); st:=' '+st+' '; poiskshot(st,mst); Writeln(mst); end. st - данная строка символов
mst - самое короткое слово в строке
i - порядковый номер символа в строке
n - фактическая длина строки
k - фактическая длина слова
min - минимальная длина
p - слово