Programme en langage Pascal

Sujet du devoir

Le programme à réaliser exploite un fichier de configuration constitué comme suit :
fichier_final
fichier1 mot1 n mot2 m
fichier2 mot1 n mot2 m
etc
- fichier_final est le nom du fichier à créer (en première position dans le fichier de configuration)
- fichier1, fichier2, ..etc : sont les noms des fichiers initiaux
- mot1 n : est le mot du fichier initial à partir duquel commence l'extraction, n est son occurrence.
- mot2 m : est le mot du fichier initial à partir duquel se termine l'extraction, m est son occurrence.
Par exemple, avec le fichier de configuration suivant :
fic.txt
test.txt maison 3 voiture 2
test2.txt arbre 1 fruit 5
On extraira de test.txt tout le texte commençant à la 3 occurrence du mot maison (inclus) jusque à
la seconde occurrence du mot voiture (inclus). Cette séquence sera sauvegardé dans le fichier
fic.txt. On récupérera ensuite dans le fichier test2.txt le texte commençant à la première occurrence
du mot arbre (inclus) jusqu'à la 5eme occurrence du mot fruit (inclus). Ce second texte sera ajouté à
la suite de la première dans le fichier fic.txt.

Où j'en suis dans mon devoir

Je pensais commencer par avoir4 fichiers, un fichier "projet.txt" dans lequel serait inclus le nom de mes trois fichiers suivants :

fic.txt
test.txt maison 3 voiture 2
test2.txt arbre 1 fruit 5

DOnc ouvrir en lecture le fichier "projet.txt" puis en écriture les autres fichiers suivants, petit bémol, j'ai fais très peu de cours sur ce lanagae (où d'ailleurs je n'ai jamais vu auun autre langage" et j'ai mon partiel jeudi + ce projet à rendre, et donc j'aurais besoin de beaucoup d'aide.

voici le début de mon projet :

Program projet;

Var
fic:Text; //ou textfile
ligne:string;

BEGIN
Assign(fic,'projet.txt'); //correspondance entre nom logique et nom physique
Reset(fic); //ouverture du fichier en lecture
While NOT EOF(fic) do //on parcours le fichier tant qu'il n'est pas terminé
Begin
ReadLn(fic,ligne); //on lit chaque ligne
writeln (ligne);
End;
Close(fic);
END.