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

[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;

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

[OCTAGRAM]

record там с недоделанным ООП.

Замысел в том, что через Text можно работать с принтером (AssignPrn), консолью (AssignCrt) или вообще написать свой обработчик. Хоть с TCP, хоть как. В School Pak, в AnsiFile, например, файлы из ANSI в OEM и обратно на лету перекодируются, так обработчики запрограммированы.

Конкретно System.Assign подготавливает Text к работе с обычным файлом.

Это всё очень похоже на TStream, но TStream, как создан, так уже понятно, как с ним работа будет идти, а Text — это как недоделанный TStream, который после Assign ещё не знает, будет ли он открыт на чтение, на запись или на запись после конца файла.