процедура которая находит слова в строке по номеру

procedure WordByNum(s:string;n:integer;var ress:string);
var i,k:integer;
begin
i:=1;
k:=1;
while (s[k]=' ')or (k<=Length(s)) do
        inc(k);
while (i<n)and(k<=Length(s)) do
    begin
    while (s[k]<>' ')or (k<=Length(s)) do
        inc(k);
    while (s[k]=' ')or (k<=Length(s)) do
        inc(k);
    if k<=Length(s) then
        inc(i);
    end;
ress:='';
if k<=Length(s) then
    while (s[k]<>' ')or (k<=Length(s)) do
        begin
        ress:=ress+s[k];
        inc(k);
        end;
end;