Как отсортировать пузырьком комбинированные типы данных - Pascal ABC

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

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

uses crt;
const N = 100;
type
   abonent = record
      name : string[30];
      number : string[11];
   end;
   phonebook=array[1..N] of abonent;
var
   p: phonebook;
   m: integer; {Количество записей введённых пользователем}
   ch : char;  {Вспомогательная переменная - нажатая клавиша}
   s : string; {Вспомагательная переменная}

Сама сортировка 
procedure sort(a:phonebook; m:integer); 
var i,j : integer;
t:string;
begin
   clrscr;
   writeln('Телефонная книга':28);
   head;
 
   for i := 1 to m-1 do
   for j:=1 to m-i do
   if a[j].number>a[j+1].number then
 
   begin
   t:=a[j].number;
   a[j].number:=a[j+1].number;
   a[j+1].number:=t;
 
 writeln('|', a[i].name:30, '|', a[j].number:11, '|');
     writeln('|------------------------------|-----------|');
   end;

Дайте хотя бы подсказку.

Решение задачи: «Как отсортировать пузырьком комбинированные типы данных»

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

procedure del(var a: phonebook; var m:integer; s :string);
var i,j:integer;
begin
i:=1;
while i<=m do
if s =a[i].name  then
if i=m then m:=m-1
else
 begin
  for j:=i to m-1 do
  a[j]:=a[j+1];
  m:=m-1;
 end;
end;

Объяснение кода листинга программы

В процедуре del объявлены три переменные: a, m и s. Переменная a является указателем на телефонную книгу, а переменные m и s являются целочисленными и строковым типами данных соответственно.
Переменная i инициализируется значением 1.
Затем, в цикле while, проверяется условие i <= m. Цикл выполняется, пока значение переменной i меньше или равно значению переменной m.
Внутри цикла, если строка s равна имени текущего элемента в телефонной книге (a[i].name), то выполняется следующая часть условия if i=m then m := m-1. Это означает, что если текущий элемент совпадает с последним элементом, то переменная m уменьшается на 1.
Если условие не выполняется (то есть, текущий элемент не является последним), то выполняется вложенный цикл for j := i to m-1 do, который перебирает все элементы от i до m-1 включительно.
Внутри вложенного цикла, каждому элементу присваивается значение следующего элемента (a[j] := a[j+1]). Таким образом, значения элементов сдвигаются вправо.
После завершения вложенного цикла, переменная m уменьшается на 1.
Цикл while завершается, когда значение переменной i становится больше или равно значению переменной m.
В результате выполнения процедуры, строки в телефонной книге перестановятся так, что последние строки будут расположены первыми.