Mail

В этот день много лет назад...
19 апреля. В 1919 году (105 лет назад) - Лесли Лерой Ирвин совершает первый зарегистрированный прыжок-свободное падение из аэроплана с последующим раскрытием парашюта.

Turbo Pascal Documentation

Процедура MkDir

     Функция: Создает подкаталог.
     Описание: MkDir(s : string)
      Примечания: Параметр  s  представляет  собой  выражение
строкового  типа.  Создается  новый каталог с путем доступа,
заданным строкой s. Последний элемент этой записи  не  может
задавать имя существующего файла.
     При  указании  директивы  компилятора   {I-}   функция
IORеsult будет возвращать значение 0 в том случае, если опе-
рация завершилась успешно, и ненулевой код ошибки в  против-
ном случае.
     Прочее: См. также процедуры RmDir, ChDir, GetDir.
     Пример:

begin
  {I-}
{ получить из командной строки имя каталога }
MkDir(ParamStr(1));
If IOResult <> 0 then
    Writeln('создание каталога невозможно');
else
    Writeln('создан новый каталог');
end.