Pascal.Процедура создания текстового файла

[nulyjarden]

Нужно описать процедуру создания текстового файла, в процессе возникла проблема в связывании файла с файловой переменной.
То есть у меня описано 9 файловых переменных (f1,f2..f3),
при вызове процедуры файл связывается с переменной f1.Нужно создать ещё один файл, но при вызове этой процедуры он опять будет связываться с переменной f1, а нужно связать его с другой.Подскажите как связать
файл со следующей переменной f2 (и так от f1 до f9), т.к. описание процедуры для каждой переменной очень громоздко.

Procedure SF;
Begin
WriteLn('Ведите имя файла');
RedLn(st);
Assign(f1,st);

[Xatr]

почему обязательно использовать разные переменные? можно использовать одну.

[Serge_Bliznykov]

формально, ответ на Ваш вопрос - вместо одной файловой переменной заведите массив и пользуйтесь им.
пример:

var 
  f : array[1..10] of text;
  i : integer;
  s : string;
begin
  for i:=1 to 10 do begin
    str(i:1,s);
    s := 'TSTT'+s+'.TXT';
    Assign(f[i], s);
  end;   

  Rewrite(f[5]);
  Writeln(f[5],'Куку');
  Close(f[5]);
end.

А по сути вопроса, мне кажется, что Вы неверно поняли задачу или алгоритм решения плохой придумали.
Почему?
Поясню. Реально несколько файловых переменных могут понадобится только в том случае, когда Вы будете одновременно работать с разными файлами. В противном случае Вам никто не мешает присвоить f1 одно имя файла, создать или открыть этот файл, поработать с ним (читать/писать/дописывать), закрыть и можете в f1 присваивать другое имя... проблем никаких нет.
А в случае одновременной работы с множеством файлов, Вам ещё прийдётся отслеживать состояние - т.е. назначено ли имя, открыт ли файловай переменная (т.е. выполнили ли команду reset или rewrite), закрыт ли файл и т.п.... это всё реально, но нужно ли это - это решать Вам...

___________________________________ _______
Добавлено
ну вот, пока сочинял ответ, Xatr уже меня опередил..

[nulyjarden]

хм, да вот моя ошибка.Спасибо за совет