O quê você quer perguntar?

program agenda; uses crt;

const nomearq = 'registro_ele.dat'; maximo = 100; type Dados = record descricao_produto : string[60]; cor : string[14]; marca : string[60]; quantidade_estoq : string[50]; preco : string[20]; texto : string[23]; end;

procedure inserir; var cadastro : File of Dados; reg : dados; opcao : string; begin Assign(cadastro,nomearq); { associa cadastro ao arquivo no disco cad.dat } {$I-} {desativa erros de entrada e saida} Reset(Cadastro); { tenta posicionar no primeiro } if IORESULT 0 then { se erro de entrada e saida for diferente de zero } rewrite(cadastro) { criar arquivo } else Seek( cadastro, FileSize(cadastro) ); { posiciona no fim do arquivo} {$I+} { reativa erros de entrada e saida} repeat ClrScr; writeln('-----------------------'); writeln('| registro |'); writeln('-----------------------'); write (' descricao do produto: '); readln (reg.descricao_produto); if reg.descricao_produto'' then begin write (' cor: '); readln (reg.cor); write (' marca: '); readln (reg.marca); write ('quantidade em estoque:'); readln(reg.quantidade_estoq); write(' pre‡o : '); readln(reg.preco); write(cadastro,reg); end else begin writeln('nome nao pode ser vazio'); end; writeln ('tecle S para continuar cadastrando:'); opcao := upcase(readkey); until opcao 'S'; Close(cadastro);