ayuda con busqueda de palabra en una matriz

[BDWONG]

No revise tu codigo detenidamente pero segun tu primera pregunta "'me podrian ayudar a buscar una palabra en una matriz ya echa"
estoy suponiendo que es una matriz de dos dimensiones

asi que arme un pequeno codigo donde busco una palabra dentro dentro de un array dinamico de dos dimensiones, espero sea lo que buscas o sirva para resolver tu duda

Código Delphi [-]
type
  TMatriz=array of array of string;

procedure buscarPalabraEnMatriz(palabra:string; matriz:TMatriz);
var
  i,j:Integer;
begin
   for i:=0 to High(matriz) do
   begin
     for j:=0 to High(matriz) do
     begin
       if matriz[i,j]=palabra then
       begin
         Writeln('Palabrada encontra en la fila ',i,' columna ',j);
         Exit;
       end;
     end;
   end;
   Writeln('Palabra no encontrada');
end;

var
  matriz:TMatriz;
begin
  SetLength(matriz,2,2);
  matriz[0,0]:='Enero';
  matriz[0,1]:='Marzo';
  matriz[1,0]:='Abril';
  matriz[1,1]:='Mayo';

  buscarPalabraEnMatriz('Abril',matriz);
  buscarPalabraEnMatriz('Diciembre',matriz);
  Readln;
end.