Если файла с фамилиями ещё нет, то создать его и добавить фамилии трех и потом двух студентов - Turbo Pascal

Формулировка задачи:

Есть программа, которая создает файл с фамилиями 3-х студентов и после добавляет фамилии ещё 2-х.

Program stud;
  const n=3;m=2;
 var t:text;
     s:string;
     k:integer;
Begin
  assign(t,'st.txt');
  rewrite(t);
    for k:=1 to n do
      begin
      write('введите фамилии ст.');
      readln(s);
      writeln(t,s);
      end; 
     close(t);
      append(t);
       for k:=1 to m do
        begin
        write('введите фамилии');
        readln(s);
        writeln(t,s);       
       end; 
      close(t);
End.

Нужно изменить программу следующим образом: если файла с фамилиями ещё нет,то создать его и добавить фамилии трех и потом двух студентов, а если файл уже создан,то просто добавить в нему фамилии 2х студентов

Решение задачи: «Если файла с фамилиями ещё нет, то создать его и добавить фамилии трех и потом двух студентов»

textual
                            Листинг программы 
                        

                            uses crt;
const nmax=20;
var f:text;
    s,st:string;
    i,n,k:integer;
    c:char;
begin
 clrscr;
  repeat
   write('Колс-вто фамилий для записи в файл n=');
    readln(n);
  until n in [1..nmax];
   write('Введите имя файла для записи :');
    readln(st);
   st:=st+'.txt';
    assign(f,st);
   {$I-}reset(f);{$I+}
    if IOresult<>0 then
     begin
      writeln('Файл ',st,' не найден !');
      write('Создать файл с имменем ',st,' ? Y/N = ');
       readln(c);
     if (c='Y') or (c='y') then
      begin
       rewrite(f);
        for i:=1 to n do
         begin
          write('Введите фамилию студента - ');
           readln(s);
           writeln(f,s);
         end;
       writeln('Запись завершенна !');
       end
      else
       begin
        writeln('Программа завершена ! Нажмите любою клавишу..');
         readkey;
         exit;
       end;
     end;
    write('Добавить студентов в файла ? Y/N = ');
     readln(c);
    if (c='Y') or (c='y')  then
     begin
      repeat
       write('Сколько добавит студентов n=');
       readln(k);
      until k in [1..nmax];
     end
    else
     begin
      writeln('Содержание в файле ',st,' . Нажмите любую клавишу .');
       readkey;
       exit;
     end;
  close(f);
   append(f);
    for i:=1 to k do
     begin
      write('Введите фамилию студента - ');
       readln(s);
       writeln(f,s);
     end;
    writeln('Запись завершенна !');
   writeln('Содержание в файле ',st,' . Нажмите любую клавишу .');
  close(f);
 readkey;
end.
                        