Mail

В этот день много лет назад...
25 апреля. В 1990 году (34 года назад) - Американцы выводят на земную орбиту самый большой космический телескоп "Хаббл".

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.