Условие: Найти слово под заданным номером

var
 str: string;
 len, count, flag, i, n: byte;
 
begin
 writeln('Введи строку: '); readln(str);
 write('Слово №: '); readln(n);
 len := length(str);
 count := 0;
 flag := 0;
 for i:=1 to len do begin
 if (str[i] <> ' ') and (flag = 0) then begin
 count := count + 1;
 flag := 1;
 if count = n then break; 
 end;
 if str[i] = ' ' then flag := 0;
 end;
 
 writeln(str[i]);
end.