имеются несколько файлов f1, f2, f3.

Procedure OpenFile1;
begin
assignfile(f1,'f1.dat');
if FileExists('f1.dat')
then reset(f1)
else rewrite(f1);
end;

Как сделать так, чтобы не писать три процедуры для открытия файлов? Что это за тип f1 ? Какого типа должна быть переменная a , чтобы a:=f1 ?