Даны две строки. Определить, есть ли в большей из них содержимое меньшей. Т.е. если даны строки ‘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.