В последовательности цифр и русских букв( 20 элементов) выявить встречается ли заданная группа букв- Pascal(Паскаль)

uses crt;
var s,st:string; p:integer;
begin
write('введите набор символов: ');
readln(s);
writeln('а теперь набор символов для поиска: ');
readln(st);
p:=pos(st,s);
if p>0 then
 writeln('встречается') else
 writeln('не встречается');
end.