program qq; var s: string; i, n, k: integer; begin writeln

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.