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

[Регааа]

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

program summa;
uses crt;
Var
  f,g: File of Real;
  sum,a: Real;
BEGIN
clrscr;
Assign(f,'fail.dat');
Rewrite(f);
begin
sum:=0;
a:=0;
writeln(a,'vvod');
while (a>=0)and(not eof(f))do
sum:=sum+a;
write(sum,a);
readln;
end;
close(f);
END.

[Stilet]

program summa;
uses crt;
Var
  f,g: File of Real;
  sum,a: Real; ok:boolean;
BEGIN
clrscr;
Assign(f,'fail.dat');Reset(f);
Assign(g,'epic.dat');Rewrite(g);

sum:=0;
ok:=true;
while (not eof(f)) do begin
 read(f,a);
 sum:=sum+a;
 write(sum,a);
 if ok and (a<0) then ok:=false;
 if ok then write(g,a);
end;
close(f); close(g);
END.

Требует доработки

Ремня требует )
А не доработки...

[Регааа]

Спасибо конечно.
Но после запуска на экран ничего не выводит и снова возвращается к коду(

[Serge_Bliznykov]

Но после запуска на экран ничего не выводит и снова возвращается к коду(

всё верно. программа отрабатывает и экран закрывается после выполнения.
Чтобы увидеть результат нажмите Alt-F5 (это в Turbo Pascal)
либо допишите в конец программы (перед end. )

  Readln;

тогда программа остановится и будет ждать нажатия Enter для продолжения

[Регааа]

спасибо огромное