Дано предложение. Между словами предложения один пробел, а после последнего слова точка.

[Vadim123456]

Дано предложение. Между словами предложения один пробел, а после последнего слова точка. Напечатать k-е слово предложения.

Program zd;
Uses crt;
Var
k,i,n:integer;
st:string;
s:string;
Begin
s:='';
Write('Vvedite predlojenie=');
Readln(st);
Write('Vvedite nomer slova=');
Readln(k);
n:=0;
For i:=1 to length(st) do
Begin
If st[i]=' ' then inc(n);
If n=k+1 then break;
End;
i:=i+1;
While st[i]<>' ' do begin
s:=s+st[i];
inc(i);
End;
Writeln(k,'-e slovo=',s);
Readln;
End.

Вот в этой программе непонятны два места, выделенные красным цветом. Не могли бы вы объяснить мне эти места, пожалуйста?