fsplit.pas

{Fsplit.PAS}
 
{ Пример программы для процедуры FSplit }
 
Uses Dos;
 
Var P : PathStr;
    D : DirStr;
    N : NameStr;
    E : ExtStr;
 
Begin
 Write('Имя файла (WORK.PAS): ');
 ReadLn(P);
 FSplit(P, D, N, E);
 If N = '' Then N:='WORK';
 If E = '' Then E:='.PAS';
 P:=D+N+E;
 WriteLn('Полученное имя: ', P);
End.