Proobleme ac Pascal !

Bonjours les développeurs, j'ai un p'tit programme ecrit en Pascal (mon devoir de TP) qui se plante, alors y a t il qq un qui peut trouver la bogue ? Voici la source:

program tp2;
uses wincrt;
Type
hab = record
nom : string [15];
nbh : longint ;
end;

fhab = file of hab ;

Tab = Array [1..100] of String;

VAR
T:Tab;
e: hab;
f: text;
fh: fhab;
n:integer;


Procedure TransfertF_T (var F:text ; var T: Tab ; var n: integer );
var
i: integer;
ch: string;
Begin
Reset(F);
i:=1;
While not eof(F) Do
begin
Read (F,ch);
T[i] := ch;

i := i + 1;
end;
n := i;
End;
{______________________________________________}
Procedure TransfertT_F (T:Tab;n:integer;var Fh: Fhab);
Var
i: integer;
e: hab;
Begin
Reset(Fh);
For i:= 1 to n do
Begin
Read(Fh,e);
e.nom := T[i];
Seek(Fh,(Filepos(Fh)-1));
Write(Fh,e);
End;
End;
{______________________________________________}
Procedure Decalage (var T: tab ; i: integer ; var p:integer; pas: integer; save: string);

Begin
p:=i;
While (p > pas) and (T[p-pas] > save) Do
Begin
T[p-pas] := T[p];
p := p - pas;
End;
End;
{___________________________________________________}

Procedure Tri(Var T:Tab ; n: integer);
Var
pas,p,i : integer;
save: string;

Begin
pas := 0;
While ((3*pas + 1) < n) Do
pas := 3*pas + 1;

While pas <> 0 Do
For i:= 1 to (Pas - 1) Do
Begin
Save:= T[i];
Decalage (T,i,p,pas,save);
If p <> i Then
T[i]:= save;
End;
pas := pas DIV 3;
End;
{___________________________________________________}
Procedure Affichage (var Fh: Fhab);
Begin
Reset(Fh);
While not(eof(Fh)) Do
Begin
Read(Fh,e);
With e Do
Begin
Writeln('Le nom est: ',nom);
Writeln('Le n° d-habitants est: ',nbh);
End;
End;
End;
{programme principal}
Begin
Assign(F,'villes.txt');
Assign(Fh,'habitant.dat');
TransfertF_T(F,T,n);
Tri(T,n);
TransfertT_F(T,n,Fh);
Affichage(Fh);
End.