Даны две строки. Определить, есть ли в большей из них содержимое меньшей. Т.е. если даны строки ‘ABCdefGH’ и ‘Cde’, то ответ будет утвердительным, поскольку в первой строке подряд идут символы C,d,e. — Pascal(Паскаль)

var Stroka,Stroka2,min,max:string;
    i:integer;
begin
i:=0;
write('Введите первую строку: ');
readln(Stroka);
write('Введите вторую строку: ');
readln(Stroka2);
  if length(Stroka)> length(Stroka2) then
    begin
     max:=stroka;
     min:=stroka2
    end
  else
    begin
     max:=stroka2;
     min:=stroka;
    end;
  i:=Pos(min,max);
 
 
  if i<>0 then
   write('Вхождение есть')
  else
   write('Вхождения нет');
readln;
end.