Buenas , necesito ayuda con un programa usando archivos secuenciales, tengo el programa listo y ya corre pero tengo problemas con uno de los procesos.. si alguien me puede ayudar puedo subir el codigo,,

como puedo hacer en pascal el dibujo de una badnera

procedure AgregarMed; var arch:medicamentos; reg:medicamento; begin assign(arch,'medicamentos'); reset(arch); seek(arch,filesize(arch)); writeln('***Agregar medicamento***'); writeln; write('Ingresar nombre: '); readln(reg.nom); write('Ingresar presentacion: ');readln(reg.pres); write('Ingregar vencimiento: ');readln(reg.vencimiento); write('Ingresar stock: ');readln(reg.stock); writeln; write(arch,reg); close(arch); end; el codigo q acabo de escribir aparentemente deberia: 1.A la variable archivo "arch" se le asigno 'medicamentos' 2.Me posiciono sobre el principio del archivo 3.Con el comando seek me dirijo al final del archivo para poder ingresar otro nuevo registro 4.Lleno el registro los campos del registro. 5.Escribo el nuevo registro sobre el archivo 6.cierro el archivo esos pasos creo q son los correctos para poder agregar un registro al archivo ya existente,. el problema es q cuando vuelco los datos a texto tanto sea imprimiendolos en pantalla para poder ver el contenido el archivo, el registro nuevo no se incorporo al archivo original. agradeceria una pronta respuesta, correcion o lo q sea para mi codigo desde ya gracias =)

ayudaa! tengo un problema con un codigo de pascal,. alguien me podria ayudar?