Bonsoir,

Nouveau problème avec les fichiers, ca ne sauvegarde pas les données des deux tableaux dans le fichiers.
De plus le programme s'execute, le fichier se crée alors que ca mais runtime error, je ne sais pourquoi:


Code:
program tarifClasse;
const MAX=100;
type
	tarifHauteSaison=array[1..MAX] of integer;
var 
	Tab1 : tarifHauteSaison;
	NOMBRECLASSE : integer;

procedure prixHauteSaison ( var Tab1 : tarifHauteSaison; nomFichier : string);
var chaineI, tarif , chaineClasse: string;
	i :integer;
	fichierTexte : text;
	
begin
	chaineClasse:='';
	writeln('		 TARIFS HAUTE SAISON (€)');
	writeln;
	assign ( fichierTexte , nomFichier );
	rewrite ( fichierTexte );
	
for i:=1 to NOMBRECLASSE do
	begin
		writeln('Entrez le tarif de la classe ', i ,'  : ');
		readln(tab1[i]);	
		writeln;
	end;
	
for i:=1 to NOMBRECLASSE do
	begin
		str(i, chaineI);
		str(Tab1[i], tarif);
		chaineClasse:=chaineClasse+'Classe '+chaineI+' : '+tarif+' €'+' | ';
	end;
	
	writeln('-------------');
	writeln('Récapitulatif');
	writeln('-------------');
	writeln;
	writeln(chaineClasse);
	
	for i:=1 to NOMBRECLASSE do
				begin
					writeln(fichierTexte , Tab1[i]);
				end;
					close ( fichierTexte )
end;

type
	tarifBasseSaison=array[1..MAX] of integer;
var 
	Tab2 : tarifBasseSaison;
	fichierTexte : text;

procedure prixBasseSaison ( var Tab2 : tarifBasseSaison; nomFichier : string);
var chaineJ, tarif , chaineClasse: string;
	j : integer;
	
begin
	chaineClasse:='';
	writeln;
	writeln('		 TARIFS BASSE SAISON (€)');
	writeln;
	assign ( fichierTexte , nomFichier );
	
	
for j:=1 to NOMBRECLASSE do
	begin
		writeln('Entrez le tarif de la classe ', j ,'  : ');
		readln(Tab2[j]);	
		writeln;
	end;
for j:=1 to NOMBRECLASSE do
	begin
		str(j, chaineJ);
		str(Tab2[j], tarif);
		chaineClasse:=chaineClasse+'Classe '+chaineJ+' : '+tarif+' €'+' | ';
	end;
	writeln('-------------');
	writeln('Récapitulatif');
	writeln('-------------');
	writeln;
	writeln(chaineClasse);
	
	for j:=1 to NOMBRECLASSE do
				begin
					writeln(fichierTexte , Tab1[j]);
				end;
					close ( fichierTexte )
	
	
end;

procedure lireFichier( var Tab1 : tarifHauteSaison; Tab2 : tarifBasseSaison ; nomFichier : String );
var fichierTexte : Text;
	j, i : integer;

begin
	assign ( fichierTexte , nomFichier );
	reset ( fichierTexte );
	
	for i:=1 to NOMBRECLASSE do
		begin
			readln(fichierTexte , Tab1[i]);
		end;
    
	for j:=1 to NOMBRECLASSE do
		begin
			writeln( Tab2[j]);
		end;    
    close(fichierTexte);
	
end;

begin 
	writeln('Combien de classes ?');
	readln(NOMBRECLASSE);
	prixHauteSaison (Tab1, 'quaranteTrois.txt');
	prixBasseSaison (Tab2, 'quaranteTrois.txt');
	lireFichier( Tab1, Tab2, ' quaranteTrois.txt ')
end.
merci d'avance. Au revoir.