Файл вещественных числел. Турбо Паскаль

[Металлистка]

Здравствуйте,помогите пожалуйста написать программу в Турбо Паскале:
Дан файл вещественных чисел. Вычислить сумму компонент файла, записанных до первого отрицательного. Записать в новый файл суммируемые компоненты.

[Stilet]

var f,g:file of real;r:real;
begin
 assign(f,'file');reset(f);
 assign(g,'file');rewrite(g);
 r:=0;
 while (r>=0)and(not eof(f)) do begin
  read(f,r);write(g,r);
 end;
 close(f);close(g);
end.

А тебе остается дописать сюда пару строк для расчета суммы

[Металлистка]

Большое спасибо)