DB.txt

program db;
uses crt, dos;
var arq   : text;         {variável que será usada para referenciar o arquivo de texto}
    campo : string;       {variável com o valor para incluir/ver no registro}
    opcao : integer;      {variável de controle para o menu}
begin
Assign(arq, 'db.txt');               {referenciamos o arquivo db.txt a variavel arq}
repeat                               {início do laço de repetição onde será exibido o menu}
 writeln('1 - incluir registro');
 writeln('2 - ver registros');
 writeln('3 - sair');
 readln(opcao);
  case opcao of
   1 : begin                         {caso opcao igual a 1}
        Append(arq);                 {abre o arquivo para inclusão de novos registros}
        writeln('Escreva o que deseja incluir: ');
        readln(campo);
        writeln(arq, campo);         {escreve no arquivo o valor contido na variável campo}
        Close(arq);                  {fecha o arquivo}
        clrscr;                      {limpa a tela}
       end;
   2 : begin                         {caso opcao igual a 2}
        Reset(arq);                  {abre o arquivo}
        while not EOF(arq) do        {enquanto não chegar ao fim do arquivo faça[...]}
        begin
         readln(arq, campo);         {lê o conteúdo do arquivo e coloca esse conteúdo na variável campo}
         writeln(campo);             {imprime na tela a variável campo}
        end;
        writeln('');
        writeln('Aperte qualquer tecla para voltar ao menu');
        readkey;
        clrscr;
        Close(arq);
       end;
  end;
until opcao = 3;  {quando opcao for 3 passa para a próxima instrução (que é o fim do programa)}
end.