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

Uses Crt;
Var
 F : Text;
 Ch : Char;
 FIO : String[20];
 
Procedure CreateFile;
begin
  Assign(F, 'data.dat');
  {$I-}
  ReWrite(F);
  {$I+}
  If IOResult <> 0 Then
     begin
       WriteLn('Ошибка создания файла');
       Halt;
     end
  Else
     begin
       WriteLn;
       Repeat
         Write('Введите ФИО: ');
         ReadLn(FIO);
         If FIO <> '' Then
           begin
            WriteLn(F, FIO);
           end;
       Until FIO = '';
       Close(F)
     end;
end;
 
Procedure ReadFile;
begin
  Assign(F, 'data.dat');
  {$I-}
  Reset(F);
  {$I+}
  If IOResult <> 0 Then
     begin
       WriteLn('Ошибка открытия файла');
       Halt;
     end
  Else
     begin
       WriteLn;
       While Not Eof(F) Do
         begin
           ReadLn(F, FIO);
           WriteLn('ФИО: ', FIO);
        end;
       Close(F);
       ReadLn;
     end;
end;
 
Procedure AppendFile;
begin
  Assign(F, 'data.dat');
  {$I-}
  Append(F);
  {$I+}
  If IOResult <> 0 Then
     begin
       WriteLn('Ошибка открытия файла для дополнения');
       Halt;
     end
  Else
     begin
       WriteLn;
       Repeat
         Write('Введите ФИО: ');
         ReadLn(FIO);
         If FIO <> '' Then
           begin
            WriteLn(F, FIO);
           end;
       Until FIO = '';
       Close(F)
     end;
end;
 
begin
 ClrScr;
 WriteLn('1.Создание файла');
 WriteLn('2.Чтение файла');
 WriteLn('3.Добавление в конец файла');
 Write('Ваш выбор');
 Ch := ReadKey;
 Case Ch Of
   '1' : CreateFile;
   '2' : ReadFile;
   '3' : AppendFile;
 End;
end.

TNode =^TElem;
TElem= record
           FIO:string[20];
           next:TNode;
end;

uses crt;
var f,g:text;
    s,name:string[20];
    a:array[1..100] of string[20];
    n,i,j:byte;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(name);
name:=name+'.txt';
assign(g,name);
rewrite(g);
n:=0;
while not eof(f) do
 begin
  readln(f,s);
  n:=n+1;
  a[n]:=s;
 end;
close(f);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  s:=a[i];
  a[i]:=a[j];
  a[j]:=s;
 end;
for i:=1 to n do
writeln(g,a[i]);
close(g);
write('Отсортированный список переписан в файл ',name);
readln
end.

begin
  readln(f,s);
  n:=n+1;
  a[n]:=s;
 end;
close(f);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  s:=a[i];
  a[i]:=a[j];
  a[j]:=s;
 end;

begin
  readln(f,s);//читаем строки из файла
  n:=n+1;//считаем
  a[n]:=s;//записываем в массив
 end;
close(f);//закрываем файл
for i:=1 to n-1 do//это сортировка массива прямым обменом,