Создание папки в Free Pascal

[zzz777]

В переменную x я буду вводить название папки. Далее программа в определённом месте, например, в папке 3 (C:\папка1\папка2\папка3) должна создать папку с введённым мною названием.
Мне, например, не ясно, как "связать" переменную с функцией MkDir и где прописывать путь C:\папка1\папка2\папка3?

Что в этом коде дописать и/или изменить?

var x : string;
begin
Writeln('название папки?'); Readln(x);
MkDir()
end.

[VIK_aka_TOR]

вот тебе примерчик с mkdir

Uses Crt;
Var s:string;
Begin
Clrscr; Writeln('Procedure MkDir в Turbo Pascal');
Writeln;
{$I-}
{Задаем имя директории, которую необходимо создать}
s:='C:MkDir';
MkDir(s);
If IOResult <> 0 Then WriteLn('Не могу создать каталог.')
Else WriteLn('Каталог ',s,' создан!');
Readln;
End.

а вот с createdir

  Uses WinDos;
 
  Const Create : PChar = 'C:\NEWDIR';
 
  Begin
  CreateDir(Create);
 WriteLn('Создана директория :', Create);
End.

Замечания:
Выполняет те же функции, что и MkDir, но использует строку стиля Pascal, а не строку с завершающим нулем.