Bonjour à tous!

Voilà mon problème est simple: après plusieurs tâtonnements j'ai réussi à trouver un bout de code pour convertir une image bmp en tableau.
Seulement voilà après avoir enlever les erreurs de compilation, le lancement du programme me conduit inexorablement à un message d'erreur:
"program {chemin}\essai2.exe exited with exitcode = 217"

voici le code source:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
program essai;
 
uses sysutils;
 
const lo=69;{longueur de l'image source en pixels}
     la=107;{largeur de l'image source en pixels}
     p=58;{pas de detection des droites}
     p_rho=1;{pas de tolérance pour l'angle theta}
     p_theta=1;{pas de tolérance pour la logueur rho}
 
 
 
 
 
type
  image=array[1..lo,1..la] of integer;
 
 
var
  Chemin : String;
  s: string;
  k1,k2 : Integer;
  Fichier : Text;
  Ligne : String;
  im1 : image;
 
 
 
procedure Convertir(Chemin:string;t:image);
var Fichier:Text;
	k,r,i,e:integer;
begin
Assign(Fichier,chemin);
reset(Fichier);
while not eof(Fichier) do
    begin
      readln(Fichier,Ligne);
      readln(Fichier,Ligne);
      readln(Fichier,Ligne);
      readln(Fichier,Ligne);
      for k := 1 to la do
        begin
          for r := 1 to lo do
            begin
              readln(Fichier,Ligne);
              val(Ligne,i,e);
              if i>0 then t[k,r]:=1;
            end;
          {/Rof}
        end;
      {/Rof}
    end;
   {/Elihw}
  end;
 
begin
Convertir('C:\joli.bmp',im1);
for k1:=0 to lo do
	begin
	for k2:=0 to la do
                begin
                str(im1[k1,k2],s);
                write(' '+s)
                end;
	writeln();
	end;
readln();
 
end.
Bien sûr je ne suis pas tenu d'utiliser ce bout de code alors si vous connaissez un moyen efficace et fonctionnel (en tous cas plus que celui-ci )de convertir une image en tableau je suis preneur!

Merci d'avance!