Найти в тексте указанную подстроку - Pascal

Формулировка задачи:

найти в тексте указанную подстроку

Решение задачи: «Найти в тексте указанную подстроку»

Листинг программы

var
    subs, s: String;
begin
    Write('Input string: '); ReadLn(s);
    Write('Input substring: '); ReadLn(subs);
    WriteLn('Substring start position: ', Pos(subs, s));
end.

Объяснение кода листинга программы

Создается переменная subs типа String для хранения подстроки.
Создается переменная s типа String для хранения введенной строки.
Вводится строка с помощью функции ReadLn, и сохраняется в переменной s.
Вводится подстрока с помощью функции ReadLn, и сохраняется в переменной subs.
Вызывается функция Pos(subs, s) для поиска позиции начала подстроки в строке. Результат этой функции будет позиция начала подстроки в строке s.
Результат функции Pos выводится с помощью функции WriteLn на экран.