параметры процедуры

[lowercase]

Здраствуйте!
искал по форуму нужную мне тему.. но результаты не очень впечеляют.. я бы даже сказал плохие.. (( Решил создать сам тему...

Я хотел бы реши такую задачу на делфи( или паскале разница не очень большая).. Допустим у меня есть тип рекорд
напривмер вот такой:

//----------------------
type my_rec = record
   a:word;
   b:string[32];
end;
//----------------------

Далее я хочу создать типизированый файл типом которого будет то самый тип my_rec. Для этого я хочу создать процедуру для и записи в этот файл записей типа my_rec. Смысл моей задачи состоит в том чтобы в качестве параметра процедуры была файловая переменая типа my_rec.. то есть:

//----------------------
procedure make_file(f:file of my_rec; rec:my_rec);
begin
   write(f,rec);
end;
//----------------------

но делфи пишет что нельзя определять файловые переменые в качестве параметров функции ((
я сначала думал было выкрутиться новым типом:

//----------------------
type my_rec_file = file of my_rec;

procedure write_to_file(f:my_rec_file; rec:my_rec);
begin
   write(f,rec);
end;
//----------------------

что собственно не очень то изменило ситуацию..
но тогда возникает вопрос если процедуры assignfile; reset; rewrite; closefile; и т.д. поддериживают в качестве параметров файловые переменые... то почему я не могу создать такую процедуру?...

я хочу созадть процедуру независимую от каких либо переменных.. все должно быть исключительно локальным.. никаких ссылок на глобальные пременные
может кто знает решение этой задачи..буду очень благодарен..

[Пепел Феникса]

а можно точный текст ошибки?
возможно нужен var префикс к файловой переменке

[lowercase]

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

procedure make_file(var f:file of my_rec; rec:my_rec);
begin
  write(f,rec);
end;

вот елки палки.. я сам напсал себе ответ... приношу свои извинения...
я понял в чем моя ошибка...

procedure make_file(var f:file of my_rec; rec:my_rec);
begin              // это есть неправильный вариант;
write(f,rec);
end;

вот так будет правильно...

type my_rec_file = file of my_rec;

procedure write_to_file(f:my_rec_file; rec:my_rec);
begin
write(f,rec);
end;

ну и плюс дописать var перед переменной f:my_rec_file....