Como declarar um ficheiro do tipo texto:

var ficheiro:texto;

assign(ficheiro,’texto1.txt’);

rewrite(ficheiro);

write/writeln(ficheiro,dado);

close(ficheiro);

reset(ficheiro);

read/readln(ficheiro,dado);

append(ficheiro,dado);

Como declarar um ficheiro do tipo definido pelo programador:

Type a=record

          b:string;

end;

var fichg:a;

      ficheiro:file of  fich;

assign(ficheiro,’registos.dat’);

rewrite(ficheiro);

write(ficheiro,dado);

close(ficheiro);

reset(ficheiro);

read(ficheiro,dado);

Reflexão :  Decidi colocar um exemplo de como colocar um ficheiro do tipo texto e do tipo definido pelo programador.