Practica de pascal

Gredaga:
El programa no te lo puedo hacer, por la simple razón que hace como 4 años que no programo una linea de Pascal, así que hay muchos detalles de la sintxis que he olvidado, lo que si puedo hacer es darte un par de directivas para hacer este algoritmo que quizás te puedan ser útiles. Lo que yo haría con respecto a esto seria, ir buscando hasta encontrar un blanco, y voy metiendo los caracteres en un arreglo, por ejemplo, o puede ser también una lista enlazada o una simple varable de string que le vas concatenando el nuevo carácter, eso miralo vos como te es más fácil, cuando encuentro un blanco, quiere decir que tengo una palabra armada, lo que haría es armar una rutina de búsqueda en la lista de registros que tienes armada, si la encuentro aumento el contador, sino la encuentro solamente creo un nuevo registro pongo esta nueva palabra en el campo WORD, e inicializo COUNT en 1.
Otra opción, es ir armando una lista enlazada con las palabras que vas encontrando, después la recorres y vas actualizando los valores en el RECORD tpalabras, es otra opción, lo podes hacer primero y después lo único que haces es recorrer la lista e ir actualizando el registro RECORD.
Tené mucho cuidado cuando trabajas con archivos en PASCAL ya que si no lo cerras de manera apropiada te pueden traer problemas con la tabla de asignación de archivos, y o solo vas a tener problemas con lo que estabas haciendo en PASCAL sino también con otros archivos en tu PC, así que siempre cerra los archivos cuando los utilizas. Bueno espero que mi respuesta sea útil, cualquier cosa me preguntas.

Te voy a enviar otro programa para hacer y estoy de acuerdo con tu
presupuesto.La practica esa la tuve que presentar esta mañana y saque apenas un 5.Así que necesito sacar un 9 en la próxima para
compensar.Te enviare el enunciado mañana.Una vez me lo envíes
te lo ingresare en la cuenta corriente que tu me indiques.Si estas
de acuerdo me lo dices. OK

Para almacenar todas las palabras, necesitas utilizar alguna estructura de datos (cola, lista...). Yo te recomiendo que hagas una sencilla lista donde cada nodo contiene el registro Tpalabra.
Comienzas a leer el fichero, y carácter a carácter vas acumulando en un string auxiliar lo que vayas leyendo mientras que sea distinto de el espacio en blanco. Debes contar los caracteres leídos, y cuando encuentres el espacio, actualizas el tamaño de tu string auxiliar, estableciendo la posición 0 al numero de caracteres leídos. Seria una cosa del tipo:
c:char;
aux:String;
n:integer;
n=1;
read(fichero,c);
while(c<>' ') (*mientras c sea distinto de espacio en blanco*)
begin
aux[n]=c;
n:=n+1;
end;
aux[0]=chr(n-1);
Después de esto, recorres la lista buscando la palabra (que es aux). Si esta, incrementas su count, si no esta, la metes en la lista.
Todo lo anterior lo repites en un bucle hasta que termine el fichero.
Cuando acabe el fichero, solo tienes que recorres la lista, mostrando las palabras y su numero de ocurrencias (count).

Me gustaría ayudarte pero debido a la cantidad de mensajes y el poco tiempo libre que tengo en mi trabajo, me es imposible hacerte el programa.