Напишите, , программу на free pascal. определить, является ли заданная строка подпоследовательностью исходной строки. без использования строковых функций. можно использовать только функцию lenght(s​

var

 s, ss: string;

 ls, lss, i, j: integer;

 flag: boolean;

begin

 readln(s);

 readln(ss);

 i := 1;

 ls := Length(s);

 lss := Length(ss);

 flag := false;

 while i <= ls - lss + 1 do

 begin

   if s[i] = ss[1] then

   begin

     flag := true;

     for j := 1 to lss - 1 do

       if s[i + j] <> ss[j + 1] then

       begin

         i := i + j;

         flag := false;

         break

       end;

     if flag then

     begin

       write('является');

       exit;

     end;

   end;

   i += 1;

 end;

 write('не является');

end.

#include <iostream>
#include <stdio.h>
using namespace std;

int main(){
    int y;
    cin>>y;
    y=y%12;
    switch (y){
           case 4:{cout<<"Mouse"; break;}
           case 5:{cout<<"Bull";break;}
           case 6:{cout<<"Tiger";break;}
           case 7:{cout<<"Rabbit";break;}
           case 8:{cout<<"Dragon";break;}
           case 9:{cout<<"Snake";break;}
           case 10:{cout<<"Horse";break;}
           case 11:{cout<<"Goat";break;}
           case 0:{cout<<"Monkey";break;}
           case 1:{cout<<"Cock";break;}
           case 2:{cout<<"Dog";break;}
           case 3:{cout<<"Pig";break;}
           }
    cin.get();
    cin.get();
    return 0;
}

#include <iostream>
#include <cstdlib>
// содержит srand() и rand()
#include <ctime>
 using namespace std;

 int main()
{   
 int n=10;
 int mas[n] = {};
 int tmp,j=0;
 cout<<"random number";
 cout<<endl;
// начальная установка генератора случ. чисел
 srand(time(NULL));
// заполнение массива случайными числами
 for (int i = 0; i < n; i++) 
{
  mas[i] = rand()/100;  cout<<mas[i]<<" ";
}
cout<<endl;
// перестановка элементов
for (int i = 0; i < n/2; i++)
 { 
     tmp=mas[i];    mas[i]=mas[2*(i+1)-1];    j=2*i;
        while (j>i) 
    {   
        mas[j+1]=mas[j];    j--;
     }
        mas[i+1]=tmp;
}
//"массив после замены"
 for (int i = 0; i < n; i++)    cout<<mas[i]<<" ";
 cout<<endl;
 system("pause");
return 0;
}