Devoir de controle 1 (#1)

Program dc1;
Uses Wincrt;
Var
  f: Text;
  m,n: Longint;

Procedure creation (Var f:Text);
Begin
  Assign (f,'C:\bac\narcissique.txt');
End;

Function puis (entier,facteur:Longint): Longint;
Var
  j,i: Longint;
Begin
  j := 1;
  For i:=1 To facteur Do
    j := j*entier;
  puis := j;
End;

procedure narcissique (n:Integer;var somme:integer;var chaine:string);
Var
ch,long:string;
x,e:integer;
i:longint;
Begin
  Str (n,ch);
  somme := 0;
    chaine:='';
    str (length(ch),long);
  For i:=1 To Length(ch) Do
    Begin
      Val (ch[i],x,e);
            chaine:=chaine+ch[i]+'^'+long+'+';
      somme := somme+puis(x,Length(ch));
    End;
        delete (chaine,length(chaine),1);
End;

Procedure saisie (Var m,n:Longint);
Begin
  Repeat
    Writeln ('Saisir m');
    Readln (m);
    Writeln ('Saisir n');
    Readln (n);
  Until (100<m) And (m<n) And (n<1000000);
End;

Procedure traitement (Var f:Text;m,n:Longint);
Var
  s: Longint;
  ch: String;
  i: Longint;
Begin
  Rewrite (f);
  For i:=m To n Do
            Begin
            narcissique(i,s,ch) ;
      If i=s Then
        Writeln (f,i,'=',ch);
                end;
  Close (f);
End;

Procedure affiche (Var f:Text);
Var
  ch: String;
Begin
  Reset (f);
  If Eof(f) Then
    Writeln ('Le fichier est vide ');
  While Not (Eof(f)) Do
    Begin
      Readln (f,ch);
      Writeln (ch);
    End;
End;
Begin
  creation (f);
  saisie (m,n);
  traitement (f,m,n);
  affiche (f);
End.