freepascal.compiler/docs/olinuxex/ex48.pp

Program Example48;

{ Program to demonstrate the BaseName function. }

Uses oldlinux;

Var S : String;

begin
  S:=FExpand(Paramstr(0));
  Writeln ('This program is called : ',Basename(S,''));
end.