program qq;
var
s: string;
i, n, k: integer;
begin
writeln ('Введите несколько слов: ');
writeln;
writeln ('Введите номер слова: ');
readln (s);
readln (n);
for i:= 1 to length(s) do
//Считаем количество слов в строке.
//Делаем условие,по которому выводим либо ошибку (если такого слова нет),либо само слово.
writeln (n);
end.