Вот еще кое че на тему типизированного фаила... числа вводятся с клавы в фаил...

program tip_file;

uses crt;

var

fl:file of integer;

new_f: file of integer;

int:integer;

n,i:integer;

sum:integer;

digits:integer;

begin

clrscr;

assign(fl,'f.dat');

{$I-}

rewrite(fl);

{$I+}

if (IOResult=2) or (IOResult=3) or (IOResult=5) then begin

writeln('Oshibka otkrbltija faila!');

end;

write('Vvedite kol-vo: ');

readln(n);

sum:=0;

for i:=1 to 1 do

write('Vvedite ',i,'cifru: ');

readln(digits);

sum:=digits;

for i:=2 to n do begin

write('Vvedite ',i,'cifru: ');

readln(digits);

sum:=sum+(n div digits);

end;

writeln;

write(fl,digits);

close(fl);
end.

з.ы. В свое время с этим Паскалем в институте тоже мозги е**ли... слава богу кончился...