uses Dos,crt;

var
  P: PathStr;
  D: DirStr;
  N: NameStr;
  E: ExtStr;
begin
clrscr;
  Write('Filename (WORK.PAS): ');
  Readln(P);
  FSplit(P, D, N, E);

  Writeln(d,#10,n,#10,e);
end.