{Fsplit.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the FSplit procedure.}

  uses Dos;

 var
   P: PathStr;
   D: DirStr;
   N: NameStr;
   E: ExtStr;
 begin
   Write('Filename (WORK.PAS): ');
   Readln(P);
   FSplit(P, D, N, E);
   if N = '' then
     N := 'WORK';
   if E = '' then
     E := '.PAS';
   P := D + N + E;
   Writeln('Resulting name is ', P);
 end.