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.