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

const
  Fn1 = 'file1.txt';
  Fn2 = 'file2.txt';
var
  F1, F2 : TextFile;
  i : Integer;
  S : String;
begin
...
//Здесь добавить связывание файловых переменных с именами файлов и
//открытие файлов - файл F1 должен быть открыт для чтения, а файл F2 - для записи.
...
  i := 0;
  while not Eof(F1) do begin
    Inc(i);
    Read(F1, S);
    S := IntToStr(i) + ': ' + S;
    Write(F2, S);
    //Учитываем знаки перевода строк.
    if Eoln(F1) and (not Eof(F)) then begin
      Writeln(F1);
      Readln(F2);
    end;
  end;
  
  ColseFile(F1);
  ColseFile(F2);
end;

  CloseFile(F1);
  CloseFile(F2);

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  with TStringList.Create do try
    LoadFromFile('in.txt');
      for i := 0 to Count-1 do
        Strings[i] := Format('%d) %s',[i+1,Strings[i]]);
      Insert(0,'Нумерованный список студентов:'^m^j);
    SaveToFile('out.txt');
  finally
    Free
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  with TStringList.Create do try
    LoadFromFile('in.txt');
    Sort; Sorted := False;
    for i := 0 to Count-1 do
      Strings[i] := Format('%d) %s',[i+1,Strings[i]]);
    Insert(0,'Отсортированный список студентов:'^m^j);
    SaveToFile('out.txt');
  finally
    Free
  end;
end;