На паскале

Даны две строки. Определите, является ли первая строка подстрокой второй строки.

Входные данные
На вход подается 2 строки длины не более 10000, состоящие только из маленьких букв латинского алфавита.

Выходные данные
Необходимо вывести слово yes, если первая строка является подстрокой второй строки, или слово no в противном случае.

Примеры
входные данные
abac
ababacaba
выходные данные
yes

Тут вообще мало что можно было бы изменить. В условии вместо "<>" написать "=", и поменять ветки местами