1.дана строка. встречается ли в ней подстрока < < ,_> > ? паскаль

Var s: string;
begin
read(s);
if (pos('<<,_>>', s) = 0) then
  writeln('<<,_>> не встречается в заданной строке')
else
  writeln('<<,_>> встречается в заданной строке');
end.