Помогите составить программу с файлами

[катя\\]

Дан файл f, компоненты которого являются действительными числами. Число компонент файла кратно 2-м. Получить в файле g наименьшие из каждых 2-х компонент файла f.

[Stilet]

var f,g:File of double; q,w:double;
begin
 assignfile(f,'f'); assignfile(g,'g');
 reset(f); rewrite(g);
 while not eof(f) do begin
  read(f,q,w); if q<w then write(g,q) else write(g,w);
 end;
 close(f); close(g);
end.

[катя\\]

reset(f); rewrite(g);
в этой строчке пишет не удается найти указанный файл. не понимаю че делать(

[Stilet]

Ну так нужно создать файл:

Дан файл f

Смотри же в свое условие задачи. Нужно создать файл вещественных. Не текстовый а типизированный.
Вакаримаска?