Помогите, пожалуйста!!! выдает ошибку (помечено восклицательным знаком)

Добавление строки… – в упорядоченный по фамилиям файл (исходный файл задать упорядоченным) , заданный пользователем в диалоге, добавить новую строку, заданную в окне редактора текста, сохранив упорядоченность по фамилиям (использовать второй файл) .

N11Click(Sender: TObject); // ðàáîòà 1
var
x,n, oc1,oc2,oc3,i:integer;
fam:string[12]; gr:string[10];
a,str,fam1,gr1:string;
f,f1:textfile;
flag:boolean;
begin
flag:=true;
if form1.opendialog1.execute then
begin s:=opendialog1.filename;
assignfile(f,s);
reset(f);
fam1:=copy(memo1.Lines[0],14,12);
if fileexists(s+'(èçì)') then rewrite(f1)
else append(f1); !!!
while not eof(f) do
begin
readln(f,n,gr,fam,oc1,oc2,oc3);
if (trim(fam1)

begin
readln(f,n,gr,fam,oc1,oc2,oc3);
if (trim(fam1)