Aider moi svp (Language Pascal)

ce genre de message n'est pas très clair. En gros ça veut dire qu'il y a une erreur d'utilisation de la mémoire, c'est très vague, ça peut venir de

* une variable mal utilisée
* plus précisément un problème de tableau (par exemple essayer d'accéder à un élément d'un tableau qui n'existe pas
* ou encore un problème de pointeur mal initialisé
* et d'autres.

Donc il faudrait au moins que vous puissiez copier les lignes de code qui déclenchent le problème.

meeeeeeeeercii bbcp de votre reponse mon ami c ça le code c'est un program de cryptage des chaines de caractère ^^ :
------------------------------------------------------------
program cryptage;

uses
wincrt;

type
car = record
carac: string;
cod: string;
end;
tab = array [1..30] of car;
tab2 = array[1..30] of string;
fichier = file of car;
{------------------------------Delclaration---------------------------------------------------}
var
ft_dic: fichier;
t: tab;
i: integer;
te: string;
ft_sor: Text;
t2: tab2;

{-----------------------------------Le dictionnaire Utiliser----------------------------------}
procedure dict(var ft_dic: fichier; var t: tab);
var
i: integer;
begin
for i := 97 to 122 do
begin
with t[i] do
begin
carac := chr(i);
cod := chr(random(32) + 33) + chr(random(58) + 65);
end;
end;
MKdir('c:\crypter');
Assign(ft_dic, 'C:\crypter\stub.crp');
rewrite(ft_dic);
for i := 97 to 122 do
begin
Write(ft_dic, t[i]);
end;
Close(ft_dic);
end;

{---------------------------------Affichage Du dectionnaire-----------------------------------}
procedure affich_dec(var ft_dic: fichier);
var
e: car;
begin
reset(ft_dic);
for i := 1 to 27 do
begin
Read(ft_dic, e);
Write(e.carac, ' = ');
Write(e.cod, '||');
end;
Close(ft_dic);
end;

{--------------------------------Convertion---------------------------------------------------}
function convertion(c: string; var ft_dic: fichier): string;
var
i: integer;
e: car;
begin
reset(ft_dic);
i := 0;
repeat
i := i + 1;
Read(ft_dic, e);
until (e.carac = c);
if e.carac = c then
begin
c := e.cod;
end;
convertion := c;
Close(ft_dic);
end;

{--------------------------------Le Cryptage De ton code--------------------------------------}
procedure crypter(var te: string; var ft_sor: Text; var ft_dic: fichier; var t2: tab2);
var
path, c, ch: string;
begin
writeln('Entrer La destination de ton fichier à crypter:');
MKdir('c:\Cryptage');
writeln('(c:\Cryptage\[nom_fichier].*txt');
readln(path);
if (path = '') or (chr(length(path) - 4) <> '.') then
begin
writeln('ta destination est vide!!');
end
else
begin
Assign(ft_sor, path);
rewrite(ft_sor);
for i := 1 to length(te) do
begin
c := te[i] + '';
c := convertion(c, ft_dic);
t2[i] := c;
end;
ch := '';
for i := 1 to length(te) do
begin
ch := ch + t2[i];
end;
writeln(ft_sor, ch);
Close(ft_sor);
end;
end;

{---------------------------------------Le programme Principale--------------------------------}
begin
writeln('*********Created By Xhacker..Tunisia is my life: L''islam is my religion*********');
writeln('*****2010-2011******');
writeln('All rights reserved!!');
writeln;
dict(ft_dic, t);
affich_dec(ft_dic);
writeln('Entrer Ton Code à crypter:');
readln(te);
crypter(te, ft_sor, ft_dic, t2);
end.
----------------------------------------------------------
----------------------------------------------------------
Alors svp si vous pouver m'aider à resoudre les problems? et meeeerci infiniment et je suis encore debutant nespa? lool mais j'aime tjs explorer c'est chose là :)) ^^ et heureu de vous rencontre aussi :))

...
tab = array [1..30] of car;
...
{------------------------------Delclaration---------------------------------------------------}
...

{-----------------------------------Le dictionnaire Utiliser----------------------------------}
procedure dict(var ft_dic: fichier; var t: tab);
var
i: integer;
begin
for i := 97 to 122 do
begin
with t[i] do
begin 

tu vois le problème avec le tableau ?

essaye de bien corriger partout si tu utilises correctement ton tableau...

il n'ya pas d'aide svp? :((