Pascal : et oui, sa exist encore ...

Bonjour,

Donc voilà j'ai un petit problème, me faudrais réaliser se petit programme :

1 - ecrite a l'écran : " donner votre code "
2 - lire le code
3 - si le code est egal a "azerty" :
a - Effacer le fichier TEXTE.TXT
b - Ecrire "fichier effacer"
4 - Si le code est mauvais :
a - Ecrire "Code erroner, le fichier et sauver"
5 - QUITER

¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤

PROGRAM TEXTE;

USES
Dos,Crt,

VAR
Code char;

Begin
Writeln('Code?');
Readln(Code);
If Code := 'azerty';
begin
{JE NE SAIS PAS SUPPRIMER UN FICHIER}
Writeln('fichier effacer');
END;
else
begin
Writln('Code erroner, le fichier et sauver');
END;
END.

¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤

Déjà Ce programme "rikiki" ne marche pas, je ne sais pas effacer un fichier et je ne sais pas si le type char pour le code et le type le mieux aproprié.

Merci d'avance de votre aide.

Xivix


PS : le fichier TEXTE.TXT se trouve dans "C:\TP7\TEXTE\TEXTE.TXT"