Motus en Turbo Pascal

par "démarer un dictionnaire de mots", je veux dire "le créer". apparemmment, il faut entrer une lettre par case, mais nous n'arivons pas à le faire !

Comme je l'ai retrouvé, je donne un coup de main, voici le programme que j'avais fait pour passer de la base de donnée BRULEX à un dictionnaire de mot.
Remarques : tous les mots sont en majuscules (pour éviter des problèmes avec les accents) et classés par ordre alphabétique (attention il y a des doublons).

program extraction;

function extraire_mot(ligne:string):string;
var a,b,i,compteur:integer;
begin
compteur:=0;
i:=1;
while compteur<19 do // si on veut les mots en minuscules on remplace 19 par 1
begin
if ligne[i]=',' then inc(compteur);
inc(i);
end;
a:=i+1;
while compteur<21 do // si on veut les mots en minuscules on remplace 21 par 3
begin
if ligne[i]='"' then inc(compteur);
inc(i);
end;
b:=i-1;
result:=copy(ligne,a,b-a);
end;

var brulex,dico:text;
var ligne,mot:string;
begin
assign(brulex,'D:\BRULEX.txt'); // il faut adapter le chemin du fichier
reset(brulex);
assign(dico,'D:\DICO.txt'); // il faut adapter le chemin du fichier
rewrite(dico);
while not eof(brulex) do
begin
readln(brulex,ligne);
mot:=extraire_mot(ligne);
writeln(dico,mot);
end;
close(dico);
close(brulex);
end.

Du coup je pense qu'il est plus simple d'utiliser ce fichier plutôt qu'un tableau, à moins de construire le tableau à partir du fichier...