Pascal/Turbo Pascal - Algoritmo de lectura String / Cadena

Uses CRT,dos;

const cadena = 'El perro de San Roque';

var

  parte : string;

begin

  Writeln('Introduzca la fracci¢n a buscar:');

  readln(parte);

  if Pos(parte,cadena) <> 0 then

   writeln('encontrado');

  readln;

end.