Помогите найти ошибку Опции

[Yarche]

Довольно простая программа, но тем не менее ошибку найти не могу.
Когда пытаюсь открыть файл для дозаписи в конец файла выдает:"Error 63: Invalid file type". В чем может быть ошибка?

Код

Program studentdata;
const
N = 3;
type
tstudent = record
name: string;
result: byte;
end;
text = file of tstudent;
var
f: text;
i: integer;
man: tstudent;
begin
assign (f, 'C:\pascal\pascal1\readme.doc');
append (f);
For i:= 1 to N do
begin
write ('‚Введите имя: ');
readln(man.name);
write('‚Введите оценку: ');
readln (man.result);
writeln(f, man);
end;
close (f);
reset(f);
i:= 0;
while not EOF (f) do
begin
readln ( man.result);
if man.result = 5 then
i:= i+1;
end;
writeln( 'Число отличников: ',i);
close (f);
end.

[Yarche]

Хм...вроде работает, но не совсем так, как хотелось бы. Программа должна записывать в файл имя и оценку (проверив файл я обнаружил, что он пустой).
И она должна считать сколько отличников (т.е. сколько оценок "5" мы ввели), у меня она каким то образом насчитала аж 7 отличников из 3ех возможных. Я это имел ввиду.