Pascal/Turbo Pascal - Ayuda con Programa Pascal

Gente tengo un gran problema "Termine" mi programa en Pascal, pero cuando lo corro se cuelga o me da error

hasta donde lo vi el problema esta despues de llamar al procedimiento AgregarDato, actualmente en el codigo este procedimiento esta comentado, asi es la unica manera de saber que hasta ahi el programa anda bien.

Cuando hago correr el programa cuando el procedimiento esta comentado por pantalla se muestra

mostrar resultado 1
mostrar resultado 1
mostrar resultado 2

eso me indica que esta bien pero cuando descomento ese procedimiento el programa se cuelga

No se si sea un problema de mi S.O. falta de compatibilidad o un error logico

Les adjunto el codigo completo para que me den una mano

http://www.megaupload.com/?d=17TOLOFO

gracias.

hola Daniel .

ERRORES encontrados con FREE-PASCAL
el free -pascal no me deja ejecutar el programa hasta que acorto el nombre

- pruebafunciones.pas nombre demasiado largo pruebo con nombre 8+3 y todo ok

he segido el programa hasta donde he podido separando el code de forma lineal y tienes 373 registros.

el procedure buscaPalNoComun
i,j,ultIndice:byte; // deberia ser integer para manejar los 373 registros que tienes en fichero
// byte solo trabaja hasta 0..255

no he podido continuar por falta de tiempo , espero que te haya ayudado .

si tienes mas errores muestra el valor numerico y el compilador que usas .

saludos de micropais.

Mira este fracmento y beras la comprovacion para no pasar el total del array funciona en pascal 7.

procedure AgregarDato(var palAct:TipoPalabra;var tweAct:TipoRegTweets;var resultados:TipoResultados; var ultInd:byte);
var
a,b,c,mes,cambio:byte;
temp:TipoRegDatos;
begin
mes:=MesDeFecha(tweAct.fecha);
cambio:=0;
for c:=0 to 9 do begin
if resultados[c].palabra = palAct then begin
inc(resultados[c].mes[0]);
inc(resultados[c].mes[mes]);
cambio:=1;
if c <> 0 then begin
a:=c;
while a <> 0 do begin
if resultados[a].mes[0] > resultados[a-1].mes[0] then begin
temp:=resultados[a];
resultados[a].palabra:=resultados[a-1].palabra;
resultados[a-1].palabra:=temp.palabra;
for b:=0 to 12 do begin
resultados[a].mes[b]:=resultados[a-1].mes[b];;
resultados[a-1].mes[b]:=temp.mes[b];;
end;{end for}
end; {end if}
a:=a-1;
end;{end while}
end;{end if}
break;
end;{end if******************************************************************************}
end;{Termina for}
if cambio = 0 then begin
resultados[ultInd].palabra:=palAct;
inc(resultados[ultInd].mes[0]);
inc(resultados[ultInd].mes[mes]);
inc(ultInd);
end;
end;


procedure AgregarDato(var palAct:TipoPalabra;
var tweAct:TipoRegTweets;
var resultados:TipoResultados;
var ultInd:integer);

if cambio = 0 then
begin
resultados[ultInd].palabra:=palAct;
inc(resultados[ultInd].mes[0]);
inc(resultados[ultInd].mes[mes]);
inc(ultInd);
if ultind > 10 then
ultind := 10;
end;