Открыть созданный файл Опции

[camac]

Бодрого дня, господа.
Подскажите, пожалуйста. Я никак не найду решения своей задачки.
Суть:
я создаю файл таким вот образом:

var nameFile,ccc : string;
     myFile : text;
begin
   gotoxy(3,3);
   write('Введите название файла: ');
   otoxy(58,3);
   write('______');
   gotoxy(59,3);
   readln(nameFile);
   nameBasa:=nameFile+'.dat';
   gotoxy(3,6);
   write('Вы создали файл: ');
   textcolor(14);
   write(nameFile);
   assign (myFile,nameFile);
   rewrite(myFile);
   readkey;
end.

Как мне теперь его открыть. При условии, что я не знаю, как он называется. Но его имя, по идее, есть в переменной myFile.
Делаю так:

   reset(myBasa);
   while not eof(myFile) do
      begin
          readln(myFile,ccc);
          writeln(ccc);
      end;

, но не работает.
Подскажите - как правильно сделать?

[Федосеев Павел]

Тип переменной Text, как и file - это обычный record. Среди полей есть и имя файла. И это имя можно прочитать.
Единственно, состав этой структуры не гарантирован в будущих версиях.
https://www.freepascal.org/docs-html/curren…12-2260008.2.14

Как ни странно, сам тип в явном виде описан не в System, а в другом модуле.
Так, для FreePascal

program test;

uses
  SysUtils;

var
  myFile: Text;
begin
  Assign(myFile, 'MyFileName.txt');
  rewrite(myFile);
  writeln(myFile, 'string');
  Close(myFile);

  Writeln('file name: ', TextRec(myFile).Name);
end.