Задача с типизированными файлами

[Black_butterfly]

Здравствуйте, уважаемые программисты!
Спасите, пожалуйста,двоечницу

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

program proga;
uses crt;
type
ff=file of integer;
var
log_f,f:ff;
rez,n,i,komp:integer;
Begin
 Assign(log_f,'data.dat');
 Rewrite(log_f);
  writeln('Vvedyte koli4estvo komponentov v faile');
 readln(n);
 rewrite(f);
 writeln('Vvedyte komponenti faila');
 for i:=1 to n do
 Begin
  read(komp);
  write(f,komp);
 end;
 close(f);
writeln('Sodergimoe faila');
Begin
 reset(f);
 while not eof(f) do
 Begin
  read(f,komp);
  write(komp,' ');
 end;
 close(f);
 writeln;
end;
reset(f);
 rez:=0;

 for i:=1 to n do
Begin
  read(f,komp);
  if i mod 2<> 0 then rez:=rez+komp;
 end;
 writeln('Summa NE4etnih elementov',rez);
 close(f);
 end.

Подправьте, очень прошу!

[Serge_Bliznykov]

Это тот очень редкий случай, когда всё написано абсолютно верно, а ошибка - мелкая оплошность (или, скорее думаю, что это осталось от того решения, из которого Вы брали код и делали своё решение )

ошибка в том, что у Вас зачем-то ДВЕ файловые переменные.
Назначаете имя одной, а работаете с другой...
попробуйте так:

type
  ff = file of integer;
var
  f: ff;
  rez, n, i, komp: integer;
begin
  writeln('Vvedyte koli4estvo komponentov v faile');
  readln(n);
  Assign(f, 'data.dat');
  rewrite(f);
  writeln('Vvedyte komponenti faila');
...

[Black_butterfly]

Взгляните теперь, пожалуйста

type
  ff = file of integer;
var
  f: ff;
  rez, n, i, komp: integer;
begin
  writeln('Vvedyte koli4estvo komponentov v faile');
  readln(n);
  Assign(f, 'data.dat');
  rewrite(f);
  writeln('Vvedyte komponenti faila');
  readln(n);
 rewrite(f);
 writeln('Vvedyte komponenti faila');
 for i:=1 to n do
 Begin
  read(komp);
  write(f,komp);
 end;
 close(f);
writeln('Sodergimoe faila');
Begin
 reset(f);
 while not eof(f) do
 Begin
  read(f,komp);
  write(komp,' ');
 end;
 close(f);
 writeln;
end;
reset(f);
 rez:=0;

 for i:=1 to n do
Begin
  read(f,komp);
  if i mod 2<> 0 then rez:=rez+komp;
 end;
 writeln('Summa NE4etnih elementov',rez);
 close(f);
 end.

Программа компилируется, но не позволяет вводить компоненты более 2-х и считает, соответственно, не верно

[Zer0]

 writeln('Vvedyte koli4estvo komponentov v faile');
  readln(n);
  Assign(f, 'data.dat');
  rewrite(f);
  writeln('Vvedyte komponenti faila');
  readln(n);

неясно зачем еще раз вводить количество элементов, да и к тому же перед ним выводить подсказку по типу "вводите уже компонент"?

не позволяет вводить компоненты более 2-х

более двух по количеству или более 2-х по значению?

[Black_butterfly]

Ой, Sorry!Спасибо огромное, все работает )))))