Programa Ficheiros

Program ficheiro_de_dados;
Var
     fich: file of integer;
     i,n,a,b,c,d,e: integer;
Begin
  clrscr;
    Assign(fich,'artigos.dat');
    Rewrite(fich);
    write('Primeiro valor: ');
    Readln(a);
    Write('Segundo valor: ');
    readln(b);
    Write('Terceiro valor: ');
    Readln(c);
    Write('Quarto valor: ');
    Readln(d);
    Write(fich,a,b,c,d);
    close(fich);
    Reset(fich);
    Writeln('Listagem dos valores do ficheiro');
    Writeln('H ',filezise(fich), 'valores(s) no ficheiro');
    while not eof(fich) Do
  begin
      read(fich, a,b,c,d);
      writeln(' ',a,' ',b,' ',c,' ',d);
  end;
    writeln('Tecle <Enter> para prosseguir');
    readln;
    writeln('Consulta de um valor por posição no ficheiro');
    write('Qual a posição a porcurar?');
    readln(n);
    seek (fich,n-1);
    read(fich,e);
    writeln('O valor é: ',e);
    close(fich);
   write('Tecle <ENTER> para prosseguir');
    readln;
end.

Reflexão: Coloquei um programa sobre ficheiros definidos pelo programador.