Pascal/Turbo Pascal - identificar palabras en un texto con Turbo Pascal

{Mira esto}

 program localiza;

 uses

    crt;

  const

     frase : string = 'Mi Pais se encuentra entre monta¤as y valles ';

  var

    exist : string[30];

    tomado : string;

    t, g : integer;

  begin

      clrscr;

      write('  Entre Frase a Visualizar : ');

      readln(exist);

      for g := 1 to length(exist) do

      exist[g] := upcase(exist[g]);

      g := 1;

      for t := 1 to length(frase) do

      begin

      if frase[t] <> ' ' then

      begin

      tomado[g] := upcase(frase[t]);

      tomado[0] := chr(g);

      g := g + 1;

      end

    else

       begin

          if tomado = exist then

          begin

          writeln;

          writeln('   Encontrada = ',tomado);

          writeln('   Pulse Enter');

          readln;

          break;

          end

        else

           begin

              g := 1;

              fillchar(tomado,256,' ');

              tomado[0] := chr(255);

           end;

       end;

     end;

  end.