Файлы: Составить программу, которая перепишет фамилии в отдельные файлы в соответствии с названием группы

[Гульвира]

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

[Stilet]

procedure append(Fio,group:String);
var f:text;
begin assign(f,group);append(f);writeln(f,fio);close(f); end;

var f:text; Fio,Group:string;
begin
 assign(f,'Исходный файл'); reset(f);
 while not eof(f) do begin
  readln(f,Fio); Readln(f,group);
  append(Fio,Group);
 end;
end;

Идея в том чтоб описать функцию, которая будет открывать файл по имени группы на добавление.