Файлы. расчёт суммы. Замена первого отрицательного элемента.

Program z;
uses crt;
var f,g:file of integer;
s,buf,K:integer;
begin
K:=0;
clrscr;
 assign (F,'F.dat');
 rewrite (F);
  writeln ('Введите первую компоненту файла');
  readln (buf);
   while buf<999 do
    begin
     write (F,buf);
     writeln ('Введите следующую компоненту:');
     readln (buf);
    end;
s:=0;
reset (F);
while not EOF(F) do
 begin
  read (F,buf);
   if not odd(buf) then
    s:=s+buf;
 end;
writeln ('Найденная сумма равна:', s);
 assign (G,'G.dat');
 rewrite (G);
reset (F);
reset (G);
 while not EOF(F) do
   begin
    read(F,buf);
    write (G,buf);
   end;
reset (F);
 while not EOF(F) do
  begin
   read(F,buf);
   write ('  ');
   write(buf);
  end;
writeln;
 
 
 
reset (G);
while not EOF(G) do
 begin
  read (G,buf);
   repeat
     if buf<0 then
      begin
       buf:=S;
       write (G,buf);
       K:=K+1;
      end;
   until K=1;
 end;
 
 
 
 
reset (G);
 while not EOF(G) do
  begin
   read(G,buf);
   write ('  ');
   write(buf);
  end;
close (F);
close (G);
end.