mkdir.pas

 {Mkdir.PAS}
 
 { Пример программы для процедуры MkDir }
 
 Begin
  {$I-}
  { Получаем имя директории из командной строки }
  MkDir(ParamStr(1));
  If IOResult <> 0 Then WriteLn('Не могу создать каталог.')
                   Else WriteLn('Каталог создан!');
 End.