Pascal/Turbo Pascal - ayuda programa pascal

Vanegl83 3 mensajes

Rango: Novato Hola quiero hacer un programa que lea palabras de un fichero de texto, el fichero de texto "datosp2a", esta integramente en caracteres minusculas, y tambien puede contener coma y punto, las palabras estan separadas por un espacio en blanco o por salto de linea. Las palabras que se lean tendras como máximo 20 caracteres. No consigo que me funcione, a ver si alguien me puede hechar una mano, me corre mucha prisa, os mando lo que he hecho y el fichero de texto "datosp2a". Muchas gracias!!!!

program leerpal (datosp2a,otuput);
type
Tminusculas = "a".."z";
Tpalabra = packed array [1..20] of Tminusculas;
var
c:char;
i:1..20;
datosp2a:text;
palabra:Tpalabra;
begin
assign (datosp2a,"C:datosp2a.txt");
reset(datosp2a);
read(datosp2a,c);
if not eof (datosp2a) then
begin

if not eoln (datosp2a) then
begin
i:=1;
if (c<>" ") and (i<=20) then
begin
palabra[i]:=c;
i:=i+1;
read(datosp2a,c);
end;
end;
read(datosp2a,c);
end;
close(datosp2a);


end.



fichero datosp2a.txt

john von newman, uno de los grandes matem?ticos del siglo xx, nacio
en budapest en 1903.
la teoria de la computabilidad es la parte de la computacion, matematicas
que estudia los problemas que pueden ser resueltos con un algoritmo.
muchas cosas son computables, es decir, efectuables mediante un algoritmo
pero otras no. por ejemplo descubrir si la ejecuci?n de un programa p
sobre un dato x va a terminar o no, no es computable.

la informatica no trata sobre las computadoras mas de lo que la astronomia
lo hace sobre los telescopios, la biologia sobre los microscopios o la
quimica sobre los tubos de ensayo. la ciencia no trata sobre herramientas,
sino sobre como las usamos y lo que entonces descubrimos.