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.