Задача на файлы

[(Нафаня)]

Не могу понять что не правильно( Пишет 'I/O error 102', процесс остановлен и что-то еще такое не могу перевести(

const
  n=7;
type
  telem=integer;
  mas=array [1..n] of telem;
  tfile=file of mas;
var
  f:tfile;
  x:mas;
  k,p,i:telem;
begin
  rewrite(f);
  Assign(f,'file.dat');
  write(f,x);
  reset(f);
  while not(eof(f)) do
    begin
      k:=0;
      p:=0;
      for i:=1 to n do
        if x[2*i-1]=0 then k:=k+1
          else if x[2*i]=0 then p:=p+1;
      if k>p then writeln('Na nechet mestah >')
        else writeln ('Na chetnyh >');
     end;
  close(f);
end.

[BDA]

  Assign(f,'file.dat');
  reset(f);
  write(f,x);
  seek(f,0);
  while not(eof(f)) do
    begin
      k:=0;
      p:=0;
      for i:=1 to n do
        if x[2*i-1]=0 then k:=k+1
          else if x[2*i]=0 then p:=p+1;
      if k>p then writeln('Na nechet mestah >')
        else writeln ('Na chetnyh >');
  //вставьте хотя бы 1 считывание, иначе цикл будет бесконечным
     end;
  close(f);

Так попробуйте.
ПС Все правлю и правлю пост

[(Нафаня)]

Тоже самое пишет( А зачем нужна процедура seek?

[(Нафаня)]

Нашла зачем) Ну ладно) Все равно, спасибо что откликнулись)

[BDA]

Все еще не работает и пишет ту же ошибку?

error 102
File not assigned
Reported by Reset, Rewrite, Append, Rename, or Eraseif the file variable has not been assigned a name through a call to Assign or AssignFile.

Вы привели полный текст программы?
Напишите, что должна делать программа.
И то, в чем компилируете: паскаль, дельфи...

[(Нафаня)]

Да, ошибка та же. Я в дельфи 7 делаю. Условие: Дан файл целых чисел. Определить, на каких местах больше нулей, на четных или на нечетных.

program nom_14;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n=7;
type
  telem=integer;
  mas=array [1..n] of telem;
  tfile=file of mas;
var
  f:tfile;
  x:mas;
  k,p,i:telem;
begin
  rewrite(f);
  Assign(f,'file.dat');
  write(f,x);
  reset(f);
  while not(eof(f)) do
    begin
      k:=0;
      p:=0;
      for i:=1 to n do
        if x[2*i-1]=0 then k:=k+1
          else if x[2*i]=0 then p:=p+1;
      if k>p then writeln('Na nechet mestah >')
        else writeln ('Na chetnyh >');
     end;
  close(f);
end.

[(Нафаня)]

Заработала) я файл неправильно создала)
Только когда программа сработала, там глюк какой-то, что строчка, где написано "На четных больше" или "На нечетных больше", повторяется бесконечное число раз

const
  n=7;
type
  telem=integer;
  mas=array [1..n] of telem;
  tfile=file of mas;
var
  f:tfile;
  x:mas;
  k,p,i:telem;
begin
  Assign(f,'file.dat');
  rewrite(f);
  writeln('Vv chisla v fail');
  for i:=1 to n do readln(x[i]);
  write(f,x);
  close(f);
  reset(f);
  while not(eof(f)) do
    begin
      k:=0;
      p:=0;
      for i:=1 to n do
        if x[2*i-1]=0 then k:=k+1
          else if x[2*i]=0 then p:=p+1;
      if k>p then writeln('Na nechet mestah >')
        else writeln ('Na chetnyh >');
     end;
  close(f);
end.

[BDA]

Я уже сказал, почему цикл бесконечен.
Вы не делаете ни одного считывания, при этом, условием выхода является конец файла, который не может быть достигнут. И вообще, в этой задаче не нужен массив. Тем более, по условию у вас файл целых чисел, а не файл массивов из целых чисел.

var
  f: file of integer;
  i, n, a, k, p: integer;

  // k - nechet
  // p - chet
begin
  Assign(f, 'file.dat');
  rewrite(f);
  write('Input count of numbers: ');
  readln(n);
  for i := 1 to n do
  begin
    write('Input ', i, ' number: ');
    readln(a);
    write(f, a);
  end;
  seek(f, 0);
  i := 1;
  k := 0;
  p := 0;
  while not(eof(f)) do
  begin
    read(f, a);
    if a = 0 then
      if i = 0 then
        inc(p)
      else
        inc(k);
    i := (i + 1) mod 2;
  end;
  close(f);
  if k > p then
    writeln('Na nechet mestah >')
  else
  if k < p then
    writeln('Na chetnyh >')
  else
    writeln('Nichia');
  readln;

end.