Рекурсия и типизированный файл

[Doppelganger]

Здравствуйте.
По заданию нужно создать типизированный фай, содержащий не менее 10 чисел. Затем посчитать сумму четных значений.

В моей программе загвоздка с процедурой рекурсии. Подскажите, что неверно.

Программа:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 in 'Unit1.pas';

type
  FileOfInt  = file of integer;
var
fout: FileOfInt;
N, I, m, Buf: integer;
begin
assignfile(fout, 'file1.dat');
writeln ('vvedite kol-vo chisel');
readln (N);
Rewrite(fout);
for I := 1 to N do
  begin
    writeln ('vvedite tseloe chislo');
    readln (m);
    write (fout, m);
  end;
closefile (fout);

Reset(Fout);
Seek (Fout,0);
while not eof(fout) do
begin
  Read(Fout,Buf);
  writeln (Buf);
end;






rekurs;





readln;
end.

Модуль:

unit Unit1;

interface
type
  FileOfInt  = file of integer;

  procedure rekurs;
implementation
var s, a:integer;
fout: FileOfInt;


//s:=0;
procedure rekurs ;
begin
assignfile(fout, 'file1.dat');

Seek (Fout,0);
while not eof(fout) do
begin

  read(fout,a);
  if a mod 2 = 0 then s:= s+a;
  rekurs;
  

end;

end;
end.

[Stilet]

procedure rekurs ;
begin
if not eof(fout) do
begin
  read(fout,a);
  if a mod 2 = 0 then s:= s+a;
  rekurs;
end;
end;

А файл открывай и закрывай отдельно. Seek() вообще не нужен.

[Doppelganger]

Я сделал как вы сказали - все равно вываливается ошибка I/O 103.

[Stilet]

Вываливается на какой строке?
И потом - покажи как написал.

[Doppelganger]

Ошибка выходит на этой строке при обоих вариантах:

//while not Eof(f) do
for I := 0 to filesize(f)-1 do

Вот программа в общем:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 in 'Unit1.pas';
 //const X = 900;
type
  FileOfInt  = file of integer;
var
fout: FileOfInt;
N, I, m, Buf: integer;
//a :array [1..X] of integer;
begin
assignfile(fout, 'file1.dat');
writeln ('vvedite kol-vo chisel (>=10');
readln (N);
Rewrite(fout);
for I := 1 to N do
  begin
    writeln ('vvedite tseloe chislo');
    readln (m);
    write (fout, m);
  end;
closefile (fout);

assignfile(fout, 'file1.dat');
Reset(Fout);
rekurs;
closefile (fout);
writes;

//I:=1;
//Reset(Fout);
//Seek (Fout,0);
//while not Eof(fout) do
//begin
//read(fout,m);
//a[I]:= m;
//I:=I+1;
//end;

//for I := 1 to N do
  //begin
 //   writeln (a[I]);
// end;

//Reset(Fout);
//Seek (Fout,0);
//while not eof(fout) do
//begin
//  Read(Fout,Buf);
//  writeln (Buf);
//end;

readln;
end.

unit Unit1;

interface
type
  FileOfInt  = file of integer;

  procedure rekurs;
  procedure writes;
  
implementation
var s, a, I:integer;
f: FileOfInt;



procedure rekurs ;
begin

//while not Eof(f) do
for I := 0 to filesize(f)-1 do
  
begin
read(f,a);
if a mod 2 = 0 then s:= s+a;
rekurs;
end;
end;
procedure writes;
begin
 writeln ('summa = ', s);
end;

end.

[eval]

зачем тут рекурсия?

[GetMax]

Пробуйте вот так

unit Unit1;

interface
Type
   fOut = file of Integer;

procedure OpenThisFile(fName : String);
procedure CloseThisFile();
procedure rekurs(var s : Integer);
implementation
Var
  f : fOut;

procedure OpenThisFile;
Begin
  AssignFile(f, fName);
  Reset(f);
End;
procedure CloseThisFile;
Begin
  CloseFile(f)
End;
procedure rekurs;
Var
  a : Integer;
begin
if not eof(f) then
begin
  read(f,a);
  if a mod 2 = 0 then s:= s+a;
  rekurs(s);
end;
end;
end.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Unit1 in 'Unit1.pas';

var
  summa : Integer;
Begin
  OpenThisFile('file1.dat');
  summa := 0;
  rekurs(summa);
  CloseThisFile();
  Writeln(summa);
End.

To eval
Задача похожа на простую лабораторную для уч. заведения. А преподаватели легких путей не ищут, вот и суют рекурсию к месту и не очень