Pascal/Turbo Pascal - Ayuda con función de manejo de cadena caracteres

{A ver si esto sirve mira en este caso la palabra a buscar puede ser pedro pero también puede

 ser Pedro para la comprobación no es igual  por eso lo convierto todo a mayúsculas puesto

que la frase no cambia}

program cuentapa;

 uses

   crt;

  type

    string40 = string[40];

   var

     texto : string;

     x, y, i, apari : integer;

    function apariciones(tex : string; apar : string40) : integer;

    begin

       apari := 0;

       apariciones := 0;

       texto := copy(tex,1,length(tex));

       i := 1;

     repeat

          if upcase(texto[i]) = upcase(apar[1]) then

          begin

             x := 0;

             for y := 1 to length(apar) do

             begin

                if upcase(texto[(i - 1) + y]) = upcase(apar[y]) then

                x := x + 1;

             end;

             if x = length(apar) then

             begin

                apari := apari + 1;

                i := i + x - 1;

             end;

          end;

          i := i + 1;

      until i > length(texto);

      apariciones := apari;

     end;

   begin

        clrscr;

        writeln('  Las aparicionas son : ',apariciones('San Pedro tenia un' +

        ' perro que se llamava pedro pero y si pedro','Pedro'));

        readkey;

   end.