hola hice est codigo en pascal lo que debe hacer es que pida al usuario los datos de contactos y guardarlos en un vector y en documento externo llamado hhh
pueden decirme en que estoy mal?
program agenda;
uses
crt;
type
contactos=record
nombre:string[100];
direccion:string[255];
cel:string[255];
end;
lista = array [1..100] of contactos;
var
texto:char;
archivo:text;
i,f,c:integer;
decicion:char;
contacto:lista;
begin
assign(archivo,'hhh.txt');
reset(archivo);
repeat
clrscr;
writeln('que deseas hacer?');
writeln('1)agregar contactos 4)salir');
readln(decicion);
if decicion='1' then
begin
writeln('cuantos contactos usaras?');
readln(c);
for i:=1 to c do
begin
writeln('escribe el nombre del contacto ',i);
readln(contacto[i].nombre);
writeln('escribe la direccion ',i);
readln(contacto[i].direccion);
writeln('escribe el numero de celular ',i);
readln(contacto[i].cel);
end;
for i:=1 to c do
begin
write(archivo,contacto[i].nombre);
write(archivo,contacto[i].direccion);
write(archivo,contacto[i].cel);
end;
end;
until decicion='4';
close(archivo);
readln;
end.
