Перевести с C++ на pascal

Снежана в категроии Информатика, вопрос открыт 24.03.2017 в 23:05

#include
#include

int main()
{
std::string s1, s;
std::cin >> s >> s1;
int b = false;
for (int i = 0; i < s1.size() - s.size() + 1; i++) {
for (int j = 0; j < s.size(); j++) {
if (s[j] != s1[i+j]) {
break;
}
if (j == s.size() - 1) {
b = true;
break;
}
}
if (b) {
break;
}
}
if (b) {
std::cout << "yes" << std::endl;
}
else {
std::cout << "no" << std::endl;
}
}