По информатике дана строка s и s0. проверить , содержится ли строка s0 в строке s . если да , то вывести "да",если не содержится , то вывести "нет" string5 . pascal

Var s,s0:string;
begin
  write('введите строку: ');
  readln(s);
  write('введите подстроку: ');
  readln(s0);
  if pos(s0,s)<>0 then writeln('Да') else writeln('Нет');
end.

Тест №1
введите строку: qwerty
введите подстроку: wer
Да

Тест №2
введите строку: qwerty
введите подстроку: 1wer
Нет