Работа с файлами

[Kazik]

Нужно записать в файл 20 любых целых чисел а затем считать эти числа и посчитать количество четных...
вот код

program l16z1;

uses crt;

var
   f:text;
   i,k,c:integer;

begin
     clrscr;
     randomize;
     k:=0;
     assign(f,'c:\1\file.txt');
     rewrite(f);
     close(f);
     for i:=1 to 20 do
     begin
          append(f);
          writeln(f,random(10));
     end;
     close(f);
     for i:=1 to 20 do
     begin
          reset(f);
          readln(f,c);
          if c mod 2=0 then inc(k);
     end;
     close(f);
     writeln(k);
     readln;
end.
после выполнения этого кода программа выводит либо 20 либо 0...
не могу понять где что не так

[s-andriano]

1. Вы сначала закрываете файл, а потом пытаетесь в него что-то записать.
2. Потом Вы повторно пытаетесь закрыть уже закрытый файл.
3. А потом Вы в цикле пытаетесь несколько раз открывать файл, не закрывая его.

Удивительно, что программа вообще хоть как-то работает.

[Kazik]

спасибо большое...переписал..работает))

[Петррр]

 if c mod 2=0 then inc(k);

можно еще так:

 if not odd(c) then inc(k);