Как определить входить ли одна строковая переменная в состав другой.

//Pascal
var Str, SubStr: string;
begin
  Str := 'HelloTestWorld';  //Строка
  SubStr := 'Test';              //Подстрока
if Pos(SubStr, Str) = 0 then
  writeln('Не входит.')
else
  writeln('Входит. Позиция = ', Pos(SubStr, Str));
end.