добавить функции в программу

[siner]

Есть программа(Free Pascal IDE):

program qq;
const n=10;
cmdExitProgram=0;
cmdAdd=1;
cmdShowAll=2;
type TStudent=record
name:string[12];
familia:string[16];
gruppa:integer;
end;
var Table:array [1..n] of TStudent;
Count:integer;
MenuState:byte;
i:integer;
begin
count:=0;

repeat
writeln;
writeln('Viberite deistvie');
write(cmdExitProgram,'-exit program');
writeln(cmdAdd,'-Add record');
writeln(cmdShowAll,'-show all record');
write('>>'); readln(MenuState);

case MenuState of
cmdAdd:begin
if Count=n then writeln('Error: array overflow')
else begin
inc(Count);

writeln('Insert record >>');
with Table[Count] do begin
write('name   :'); readln(name);
write('familia :');readln(familia);
write('gruppa :');readln(gruppa);
end;
end;
end;


cmdShowAll: begin
writeln('|-------------------------------------|');
foe i:=1 to Count do
with Table[i] do
writeln(i,') ',name,' ',familia, ' ', gruppa);
  writeln('|-------------------------------------|');
  end;
  else
  writeln('Unknown command');
  end;
  until MenuState=cmdExitProgram;

  writeln('press enter to exit');
  readln;
  end.

Необходимо добавить следующие функции: 1) удаление произвольной записи из таблицы, 2) сортировка таблицы по столбцу фамилия (по алфавиту), 3) вывести только студентов заданной группы (номер группы вводится)