Исправте, пожалуйста, прогу. Я дно в паскале=(

[kostyan199731]

Ввести файл F. Найти суммы S1, S2 четных и нечетных компонент. Если S1 больше S2,
то сформировать файл G из четных компонент файла F, иначе – из нечетных компонент.
В конец файла G дописать S1 или S2 соответственно. Файл вывести на печать

program Files;
var  
     F, G: file of integer;
     S1,S2,i,a:integer;
    begin
  Assign(F,'F.dat');
  rewrite(F);
  writeln('введите первую компоненту файла');
  readLn(i);
  while i<>1234 do
   begin
      write(F,i);
      writeln('введите следующую компоненту:');
      readln(i);
    end;
    close(f);
  S1:=0;
  reset(F);
  while not EOF(F) do
    begin
      read(F,i);
      if (i mod 2 = 0) then
      S1:=S1+i;
     end;
     S2:=0;
reset(F);
  while not EOF(F) do
    begin
      read(F,i);
       if (i mod 2 <> 0) then
      S2:=S2+i;
     end;
     close(f);
    reset (f);
     while not EOF(F) do
      begin
      if S1>S2 then
      Assign(G,'G.dat');
  rewrite(G);
  end;
  close(G);
  begin
  if (i mod 2 = 0) then
  a:=i
   else
   if (i mod 2 <> 0) then
   a:=i;
   Seek(F, FileSize(F)); 
   Write(F,S1,S2 );
   end;
   end.

[ViktorR]

Это могло бы быть примерно так:

program Files;
var
F, G: file of integer;
S0, S1, S2, i, a: integer;
Begin
  Assign(F, 'F.dat');
  rewrite(F);
  writeln('Введите число целого типа. Для завершения ввода - 1234!');
  S1 := 0;
  S2 := 0;
  while i<>1234 do
  begin
     readln(i);
     if ((i mod 2) = 0) then
        S1:=S1 + i
     else
        S2 := S2 + 1;
     writeln(F, i);
  end;
  close(f);

  Assign(G,'G.dat');
  rewrite(G);
  reset (f);
  a := 0;
  S0 := S1;
  if (S1 <= S2) then
  begin
     a := 1;
     S0 := S2;
  end;
  while not EOF(F) do
  begin
    readln(f, i);
    if ((i mod 2) = a) then
       writeln(G, i)
  end;
  Writeln(F, S0);
  close(G);
  
end.

Как-то так, ...
PS: 1. Не проверял ...
2. В конце программы надо дописать вывод файла G на экран (печать)...