Ficha nº1

Program ficheiro_de_inteiros ;
var fich:file of integer;
    n,x,e:integer;
    i:char;

Procedure criar_ficheiro;
 begin
 begin
      assign(fich,'artigos.dat');
      rewrite(fich);
  end;
  close(fich);
  end;

Procedure introduzir_valores;
 begin
              writeln('introduza primeiro valor');
              readln(x);
 end;

Procedure ler_ficheiro;
begin
 begin
          reset(fich);
      writeln('listagem dos valores do ficheiro');
      writeln('ha',filesize(fich),'valores no ficheiro');
      while not Eof(fich) do
       begin
         read(fich,x);
             write(x);
       end;
      writeln('tecla <enter> para  prosseguir');
      readln;
 end;
 close(fich);
 end;
Procedure Pesquisa_de_um_elemento_do_ficheiro;
 begin
  begin
      writeln('consulta de um valor por posicao no ficheiro');
     writeln('qual o posicao o procurar');
     readln(n);
     Seek(fich,n-1);
     read(fich,e);
     writeln('o valor : ',e);
     writeln('tecla <enter> para prosseguir');
     readln;
 end;
 close(fich);
 end;

 begin
      repeat
           writeln('xxxx Menu xxxx');
          writeln('criar_ficheiro -->1');
          writeln('Introduzir valores -->2');
          writeln('ler_ficheiro -->3');
          writeln('pesquisa_de_um_elemento_do_ficheiro -->4');
          writeln('teminaprograma -->0');
          readln(i);
          case i of
                  '1':criar_ficheiro;
              '2':introduzir_valores;
              '3':ler_ficheiro;
              '4':pesquisa_de_um_elemento_do_ficheiro;
              '0':writeln('fim');
           end;
     until i='0' ;
 end.