Найти номер позиции с которой в заданной строке в первый раз встретится некоторо введенное слово применяемые функции poz length
var s1, s2: string;
begin writeln('введите строку'); readln(s1); writeln('введите слово'); readln(s2); writeln('позиция слова в строке'); writeln(pos(s2, s1)); end.