Файлы и записи (Pascal)

[fit]

прошу помощи в решении:
Дан файл F, содержащий сведения о учениках школы. Сведения о ученике содержат имя и фамилию, класс (номер и буква) и отметки за последнюю четверть. Выяснить, сколько учеников школы не имеют отметок ниже четырех.
вот что у меня получилось:

program laba;
uses crt;
type uchenik=record
                   F:string[30];
                   I:string[30];
                   K:string[3];
                   O:real;
                   end;
var F:file of uchenik;
    uch:array[1..3] of uchenik;
    s,i:integer;
begin
writeln('vvedite svedenia o uchenikah');
assign(F,'c:\uchenik.txt');
rewrite(F);
for i:=1 to 3 do begin
                      write ('Familia:');
                      readln(uch[i].F);
                      write ('Imya:');
                      readln(uch[i].I);
                      write ('Klass:');
                      readln(uch[i].K);
                      write ('Ocenka:');
                      readln(uch[i].O);
                      write (F, uch[i]);
                      writeln('- - - - - - - - - - - - - - - - -');
                      end;
                      close (F);

reset(F);
s:=0;
while not Eof(F) do  begin
                            inc(i);
                            read(F,uch[i]);
                            if uch[i].O>=4 then begin
                                                       s:=s+1;
                                                       end;
                            end;
Close(F);
writeln (s);
readkey;
end.

но почему-то работает только первая часть программы (там где идет ввод данных). т.е. ввожу данные, нажимаю enter - прога ничего больше не выводит. как я понял, цикл while do не выполняется. почему? может подскажите в чем дело?)
задачка вроде не сложная, а самому ошибку найти не получается. лекций по этой теме не было, а лабу на практику делать все равно как-то надо зараннее благодарю)

[eoln]

reset(F);
s:=0;i:=0;

И можно без массива(он всё равно не используется) - просто читать в переменную типа uchenik

[fit]

точно! спасибо) а я над такой глупостью парился)) а можно ли сделать так, чтобы не вводить самому с клавиатуры все эти фамилии, оценки и тд? т.е. чтобы программа сама создавала файл с уже существующими данными, а потом его читала