Hola, tengo un problema con este programa:
me pide realizar un programa que abra un fichero de texto para lectura, y lo vaya leyendo línea a línea. Deberá presentar como resultado final el nombre del fichero, el número de líneas y el número de caracteres.
esto es lo que yo he hecho pero me da errores.Me lo puede corregir alguien.
Un saludo
program contar;
type
tfichero=tex;
var
lineas:integer;
caracteres:integer;
suma:integer;
fichero :tfichero;
begin
writeln('Nombre fichero de origen: ');
readln(fichero);
repeat
begin
readln(fichero);
lineas:=lineas+1;
end;
until (eof(fichero));
close(fichero);
reset(fichero);
while not eof(fichero) do
begin
while not eoln(fichero) do
begin
read(fichero,caracteres);
suma:=suma+1;
end;
if eoln(fichero)then readln(fichero);
end;
writeln('>',lineas,' lineas y ',suma, 'caracteres.');
close (fichero);
end.
