Передача параметром имени файла Опции

[OS]

Как правильно передавать имя файла параметром для функции?
Например, как правильно вызвать следующую функцию:

procedure oneArray (str:string); 
var FIn, FOut : text; 
begin 
  assign(FIn,str); 
  assign(FOut,'output.txt'); 
  reset(FIn); 
  rewrite(FOut); 
  for i:=1 to nMax do read(FIn,X[i]); 
  close(FIn); 
  close(FOut); 
end;

Сообщение отредактировано: Altair - 5.11.2005 18:33