{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}


Program ex21;

Uses dos;

Var P : PathStr;
    D : DirStr;
    N : NameStr;
    E : ExtStr;

BEGIN
 Write('Entrez un nom de fichier : ');
 Readln(P);
 FSplit(P, D, N, E);
 Writeln('Son chemin : "',D,'", son nom : "',N, '" et son extention : "',E,'".');
END.