search.pas

This is programing tutorial for people who wants to know programing in PASCAL.Pascal might be not th

uses dos;
var
  s : string;
  d : dirstr;
  n : namestr;
  e : extstr;

begin
  s:=FSearch('FORMAT.COM',getenv('PATH'));
  if s='' then
  begin
     writeln('FORMAT.COM not found');
     halt;
  end;

  writeln('FORMAT.COM found in ',s);
  fsplit(s,d,n,e);
  writeln(d,' ',n,' ',e);
end.