Pascal - salvataggio file

E' possibile fare in modo che la prima volta che vega eseguito il programma, si crei un file nuovo, dove salvare dati ecc..., e le volte successive che viene avviato il programma, salva i dati sullo stesso file prima crato????

Si,allora per salvare i dati sul file così per esempio

program Somma;
uses crt,dos;
var a,b,somma:integer;
file1:text;
begin
clrscr;
write('Inserisci a=');
readln(a);
writeln;
write('Inserisci b=');
readln(b);
somma:=a+b;
assign(file1, 'Somma.txt');
rewrite(file1);
reset(file1);
writeln(file1, 'La somma è ', somma);
close(file1);
end.

Mentre per leggere da un file gia esistente così per esempio:

program Somma;
uses crt,dos;
var file1:text;
somma:string;
begin
assign(file1, 'Somma.txt');
reset(file1);
read(file1 ,somma);
close(file1);
writeln('La somma contenuta nel file salvato in precedenza è', somma);
end.

Penso di esserti stato chiaro!!! Non ho avuto la possibilita di provare il codice ma spero funzioni

Ciao, il seguente codice consente di creare un file (*.txt) e scriverci dentro...:

program prova;
uses crt;
var
a : string[50];
b : string[50];
c : string[50];
archivio : text;
begin
clrscr;
write('Nome = ');
readln(a);
write('Cognome = ');
readln(b);
write('Indirizzo = ');
readln(c);
assign(archivio, 'c:\ciao.txt');
write(archivio);
append(archivio);
writeln(archivio, 'Nome = ', a);
writeln(archivio, 'Cognome = ', b);
writeln(archivio, 'Indirizzo = ', c);
writeln(archivio, '_______________________________________');
close(archivio);
end.

Spero si possa rivelare utile...

ok

Grazie a tutti

Di niente, a questo serve una community no?