Pascal - aiuto per gli archivi

salve ragazzi ho un problema cn gli archivi una volta dichiarato l'archivio in questo modo

type anagrafica =record
mone:string[20];
cognome:string[20];
residenza:string[20];
eta:integer;
end;
file of anagrafica


cosa devo fare... devo fare un programma dove devo inserire dei dati e poi stamparli con due sole procedure inserimento e stampa mi potreste dare una mano ???? grazie mille

Non so se ho capito bene.

La prossima volta posta un sorgente

Comunque puoi creare una procedure che legge i dati da tastiera, usa vari readln.
Poi una procedura che scriva i valori ottenuti sul file.
Ripeti questa sequenza finche non hai finito di inserire dati.

Puoi usare un codice simile a questo:

type 
anagrafica =record
nome:string[20];
cognome:string[20];
residenza:string[20];
eta:integer;
end;

var
F : file of anagrafica;
A : anagrafica;
S : char;
nomefile : string;

procedure inserimento;
begin
writeln;
writeln('inserisci nuovo record);
with A do begin
 write('nome     =');readln(nome);
 write('cognome  =');readln(cognome);
 write('residenza=');readln(residenza);
 write('età      =');readln(eta);
end;
end;

procedure scrivi;
begin
write(F,A);
end;

BEGIN
writeln('inserisci nome del file');
readln(nomefile);
assign(F,nomefile);
rewrite(F);
repeat
 inserimento;
 scrivi;
 write('vuoi inserire un altro record del file ?? (s/n)  ');
 repeat readln(s) until (s='s')or(s='n');
until (s = 'n');
close(F);
END.