Вопрос по Free Pascal

вопрос по Free Pascal
Делаю программу с вводом выводом на паскале.
есть такая функция (да, я кэп) Assign(f, 'путь к файлу');
у меня этот путь к файлу постоянно меняется.
необходимо сделать так, чтобы этот путь можно было вводить с клавиатуры.

вот отрывок из моего получившегося кода:
__________________________________
///////////////////////////////////////////////////////////////////////////////
var f:Text;
var a: integer;
var ADRESS01, ADRESS02:string;
begin;
writeln('Введите путь к файлу ');
readln(ADRESS01);
Assign(f, ADRESS01);
reset(f);
__________________________________
///////////////////////////////////////////////////////////////////////////////

Компилируется без ошибок, даже спрашивает путь, но тутже вылетает
и пишет:
exitcode 2
путь я ввожу верно.

  • А какой путь, вводите, например?
    Вот что это значит: "It means: File not found". Взято отсюда
  • путь смотри во фрагменте
    uses crt;
    const namebd='bd.txt';
    type spisok=record
    punkt:string[20];
    tip:string[10];
    cas:integer;
    min,n:integer;
    end;
    var
    k,y:integer;
    tbl:array[1..100] of spisok;
    f,f1:Text;
    w,c:spisok;
    z:char;
    procedure Make;
    var l:string; i,n:integer;
    begin
    clrscr;
    writeln('создание файла');
    assign(f,namebd);
    rewrite(f);