Problème de programme sous Dev-Pascal (2)

[vdsba]

Salut, depuis ce matin, j'essaie de trouver l'erreur, mais rien, l'erreur est:

Fatal: Unexpected end of file.

Ici vous pouvez trouver mon fichier de cette erreur s'il vous plaît. programme (dev pascal) me montre l'erreur en rouge à la fin.

 

program septembre ;
uses crt;
var nom,choix:string;
var tabnom: array [ 1..10 ] of string ;
var tabpre: array [ 1..10 ] of string ;
var tabrue: array [ 1..10 ] of string ;
var tabnum: array [ 1..10 ] of string ;
var tabcode: array [ 1..10 ] of string ;
var tabloc: array [ 1..10 ] of string ;
var tabpay: array [ 1..10 ] of string ;
var tabtel: array [ 1..10 ] of string ;
var tabdat: array [ 1..10 ] of string ;
var tabref: array [ 1..10 ] of string ;
var tablib: array [ 1..10 ] of string ;
var tabpri: array [ 1..10 ] of string ;
var tabarr: array [ 1..10 ] of string ;
var tabnam: array [ 1..10 ] of string ;
var tabrefdent: array [ 1..10 ] of string ;
var tabsou: array [ 1..10 ] of string ;
var tabmai: array [ 1..10 ] of string ;
var tabcod: array [ 1..10 ] of string ;
var {choix,} art, i: integer;
LABEL choi,choi2,choi21,choi22,choi23,choi24,choi25,choi26,choi27,choi28;
begin

tabnom[1] :='Bodenhorst';
tabnom[2] :='Semal';
tabnom[3] :='Swisser';
tabnom[4] :='Michel';
tabnom[5] :='       ';
tabnom[6] :='       ';


tabpre[1] :='Nicolas';
tabpre[2] :='Elora';
tabpre[3] :='Maureen';
tabpre[4] :='Tim';
tabpre[5] :='  ';

tabrue[1] :='rue de Janville';
tabrue[2] :='rue de la Maladrerie';
tabrue[3] :='rue de saussois';
tabrue[4] :='rue du Brasseur';
tabrue[5] :='rue de Haute Pieree';
tabrue[5] :='     ';

tabnum[1] :='92';
tabnum[2] :='81';
tabnum[3] :='15';
tabnum[4] :='22';
tabnum[5] :='     ';

tabcode[1] :='1350';
tabcode[2] :='1370';
tabcode[3] :='1367';
tabcode[4] :='1357';
tabcode[5] :='     ';

tabloc[1] :='Jandrain';
tabloc[2] :='Jodoigne';
tabloc[3] :='Grand-rosiere';
tabloc[4] :='Helecine';
tabloc[5] :='     ';

tabpay[1] :='Belgique';
tabpay[2] :='Belgique';
tabpay[3] :='Belgique';
tabpay[4] :='Belgique';
tabpay[5] :='     ';

tabtel[1] :='015/55.66.05';
tabtel[2] :='081/45.12.01';
tabtel[3] :='010/94.73.54';
tabtel[4] :='019/63.61.80';
tabtel[5] :='     ';

tabdat[1] :='20120710';
tabdat[2] :='20120610';
tabdat[3] :='20120410';
tabdat[4] :='20120910';
tabdat[5] :='     ';

tabref[1] :='1';
tabref[2] :='2';
tabref[3] :='3';
tabref[4] :='4';
tabref[5] :='     ';

tablib[1] :='Extraction simple';
tablib[2] :='courone temporaire';
tablib[3] :='Prothèse temporaire';
tablib[4] :='Prothèse partielle';
tablib[5] :='     ';

tabpri[1] :='50 euros';
tabpri[2] :='129 euros';
tabpri[3] :='75 euros';
tabpri[4] :='549 euros';
tabpri[5] :='     ';

tabarr[1] :='20120729';
tabarr[2] :='20120822';
tabarr[3] :='20121130';
tabarr[4] :='20121003';
tabarr[5] :='     ';

tabrefdent[1] :='84184';
tabrefdent[2] :='78157';
tabrefdent[3] :='14872';
tabrefdent[4] :='21549';
tabrefdent[5] :='     ';

    choi:
    clrscr;
    gotoxy(25,2);writeln('--------------');
    gotoxy(25,3);writeln('Menu principal');
    gotoxy(25,4);writeln('--------------');
    gotoxy(10,6);writeln('1.Fichier client');
    gotoxy(10,7);writeln('2.Bon de commande commande');
    gotoxy(10,;writeln('3.Quitter');
    gotoxy(35,;readln(choix);
    if (choix = '1') then begin
       gotoxy(10,10);writeln('Vous avez choisi Fichier client');
       readln;
       goto choi21;
       end;
    if (choix = '2') then begin
          gotoxy(10,10);writeln('Vous avez choisi de creer un bon de commande');
          readln;
          goto choi22;
       end;
    if (choix ='3') then begin
       gotoxy(10,10);writeln('Le programme va fermer');
       readln();
       exit;
    end;
       choi2:
       clrscr;
       gotoxy(25,2);writeln('==============');
       gotoxy(25,3);writeln('Fichier client');
       gotoxy(25,4);writeln('==============');
       gotoxy(10,6);writeln('4.client');
       gotoxy(10,9);writeln('5.Menu principal');
       gotoxy(35,9);readln(choix);
       if (choix = '5') then begin
           goto choi;
           end;
       if (choix = '4') then begin
           goto choi23;
           end;
           choi23:
       clrscr;
       gotoxy(25,2);writeln('---------------');
       gotoxy(25,3);writeln('Fichier client');
       gotoxy(25,4);writeln('---------------');
       gotoxy(10,;writeln('Nom du client : ');
       gotoxy(10,9);writeln('Prenom du client : ');
       gotoxy(10,15);readln(nom);
       gotoxy(35,9);readln(art);
       i:=1;
       while i < 10 do
  begin
  if nom = tabnom[i] then
  begin;
  clrscr;
   gotoxy(20,16);
   Writeln(' Affichage client ');
 gotoxy(10,5); Writeln('Nom client  : ',  tabnom[i] ) ;
 gotoxy(10,6); Writeln('Prenom client : ',  tabpre[i] ) ;
 gotoxy(10,7); Writeln('Rue client  : ',  tabrue[i] ) ;
 gotoxy(10,; Writeln('Numero Domicile : ',  tabnum[i] ) ;
 gotoxy(10,9); Writeln('Code postal : ',  tabcode[i] ) ;
 gotoxy(10,10); Writeln('Localisation : ',  tabloc[i] ) ;
 gotoxy(10,11); Writeln('Pays : ',  tabpay[i] ) ;
 gotoxy(10,12); Writeln('telephone : ',  tabtel[i] ) ;
 gotoxy(10,13); Writeln('Date de commande : ',  tabdat[i] ) ;
 gotoxy(10,14); Writeln('Reference article : ',  tabref[i] ) ;
 gotoxy(10,15); Writeln('Libele article : ',  tablib[i] ) ;
 gotoxy(10,16); Writeln('Numero Domicile : ',  tabnum[i] ) ;


   readln();
end;

     gotoxy(20,4);writeln('5.Menu principal');
       if (choix = '5') then begin
           goto choi;
       end;

        choi22:
       clrscr;
       gotoxy(25,2);writeln('----------------');
       gotoxy(25,3);writeln('Bon de commande');
       gotoxy(25,4);writeln('----------------');
       gotoxy(10,7);writeln('6.Creation du bon de commande');
       gotoxy(10,9);writeln('7.Menu principal');
       gotoxy(35,9);readln(choix);
       if (choix = '7') then begin
           goto choi;
           end;
       if (choix = '6') then begin
           goto choi24;
           end;

 

Tu sais m'aider pour trouver l'erreur ?? merci d'avance.