Pascal/Turbo Pascal - Comparación de listas de palabras en archivos

Estimados amigos,

Sería posible ayudarme a hacer un programa para comparar listas de
palabras en dos ficheros distintos? grabando en un tercero archivo las palavras comunes entre los dos primeros?

Ejemplo:

Arquivo 1.txt
_________
Introduce
tus
datos
personales
junto
con
el
texto
que
quieras
agregar
al
foro.

Arquivo 2.txt
_________
No
sé
tus
datos
personales
al
foro
imposible
hay

Arquivo 3.txt
_________

tus
datos
personales
al
foro
imposible

Gracias por cualquier ayuda,

Saludos,

Lebron

Se me ocurre que cargando los dos archivos en dos listas en memoria, luego ordenarlas sería la forma más eficiente de hacer la comparación, luego cuando se encuentren coincidencias eliminar el nodo correspondiente.

Y como hago esto?

Lebron

Ejem..., empieza a programar y consulta por dudas más específicas por favor.

Bueno... cá está algunas líneas de código para hacerlo, puedes ayudarme , ahora?

Type
wordlist = Array[1..100] of string;

Var
Word,
WordId : string;
words : wordlist ;
wordtype : wordlist ;
WordCount,
CountI,
CountII,
CountIII : integer;

Infile, Infile2, Outfile : Text;

Begin
assign(infile,´file1.txt´);
reset(infile);
WordCount := 0;
while Not EOF(Infile)
begin
readln(infile,word);
WordCount := WordCount + 1;
words[WordCount] := Word;
Skip the comma, the letter, and the comma
Read the WordID
wordtype[WordCount] := WordId;
end

Begin
assign(infile,´file2.txt´);
reset(infile);
while Not EOF(Infile)
begin
Readln(infile2,word);
If WordType[Index] = "I" then
CountI := CountI + 1;
else If WordType[Index] = "II" then
CountII := CountII + 1;
else
CountIII := CountIII + 1;
end
wordtype[WordCount] := WordId;
close(infile);close(infile2);

end.

Una acotación "Word" no puede ser un indetificador de una variable pues es palabra reservada de Pascal.
Por el resto creo que está bién aunque yo me refería a listas con punteros y no a listas implementadas sobre arreglos de tamaño fijo.