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

[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.

[volvo]

Не знаю, не знаю, у меня вот это отработало прекрасно:

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, 'readme.doc');

  reset(f);
  seek(f, filesize(f));
  For i:= 1 to N do begin
    write('Введите имя: '); readln(man.name);
    write('Введите оценку: '); readln (man.result);
    write(f, man);
  end;

  close(f);
  reset(f);
  i := 0;
  while not EOF (f) do begin
    read(f, man);
    if man.result = 5 then i:= i+1;
  end;
  writeln( 'Число отличников: ',i);
  close (f);
end.