извиняюсь за наглость, но, пожалуйста,помогите ещё одну

Условие:

составить программу, которая открывает текстовой файл для дозаписи и формирует в ней список, содержащий фамилию и телефон абонента


понимаю что "туплю",но....

открытие текстового файла файла для дозаписи

append(f);

создание списка эт просто запись переменной типа запись в конец и все

Type
        Trecord = record
           namefio:string[20];
           nomber:integer;
        end;
        Tarrrec = array [1..count] of Trecord;
...
Var a:Tarrrec; 
...
{заполняем масив данными}
 
append(f);
for i:=1 to count do 
                            begin
                            writeln(f,a[i]);
                            end;
close(f);
...
                            
   

amega,БОЛЬШОЕ СПАСИБO!