Ошибка в коде (Delphi)

[Начинающий програм]

Всем доброго времени суток! Помогите пожалуйста исправить ошибку, первая и вторая процедура работают, а вот последняя процедура почему не работает не пойму.

Условие задачи.
{Создать массив - телефонный справочник, хранящий информацию о 15 абонентах сотовой сети. Каждый элемент справочника хранит следующую информацию об абоненте: ФИО, номер телефона, адрес регистрации, состояние баланса.

Упорядочить массив по ФИО абонентов. Проверить есть ли абоненты, имеющие несколько номеров. Уникальность абонента определяется его ФИО и адресом регистрации.}

program Phonebookk;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

type
  Phonebook = record
    SNP: string[30];
    Phone: string[15];
    balance: real;
    Address: string[50]
  end;

  mas = array[1..15] of Phonebook;

const
  n = 5;

procedure Vvod(var a: mas);
var
  i: integer;
begin
  writeln('Input data:');
  for i := 1 to n do
  begin
    write('First name of ', i, ' client: ');
    readln(a[i].SNP);
    write('Telephone number of ', i, ' client: ');
    readln(a[i].Phone);
    write('Balance of ', i, ' client: ');
    readln(a[i].balance);
    write('Address of ', i, ' client: ');
    readln(a[i].Address);
  end
end;

//Процедура упорядочивания массива по ФИО абонентов.

procedure Sort_SNP(var a: mas);
var
  i, j: integer;
  x: Phonebook;
begin
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if a[i].SNP > a[j].SNP then
      begin
        x := a[i];
        a[i] := a[j];
        a[j] := x
      end;
  writeln('Clients are sorted in alphabetical order:');
  for i := 1 to n do
    writeln(a[i].SNP {,' ',a[i].Phone,' ',a[i].Phone2,' ',a[i].Address});
end;

//Процедура, которая проверяет есть ли абоненты, имеющие несколько номеров.

procedure SomePhone(a: mas);
var
  i, b, e: integer;
begin
  b := 1;
  e := 1;
  while (b <= n)and(e<=n) do
  begin
    while (b <= n)and(e<=n) and (a[b].SNP = a[e].SNP) and (a[b].Address = a[e].Address) do
      inc(e);
    if e - b > 1 then
      writeln('Client ', a[b].SNP, ' have ', e - b, ' phone numbers');
    b := e;
    inc(e);
  end;
end;

var
  a: mas;
begin
  Vvod(a);
  Sort_SNP(a);
  SomePhone(a);
  readln;
end.

[BDA]

Что именно не работает?
(Кстати, могли продолжить спрашивать в прошлой теме)
Процедура SomePhone должна вызываться строго после сортировки.
Если она будет вызвана без сортировки, то ее поведение непредсказуемо.

[Начинающий програм]

При выполнении программы эта процедура не запускается, почему не пойму.

[Stilet]

Проверил твой код - все ок:

Input data:
First name of 1 client: 0
Telephone number of 1 client: 0
Balance of 1 client: 0
Address of 1 client: 0
First name of 2 client: 0
Telephone number of 2 client: 0
Balance of 2 client: 0
Address of 2 client: 0
First name of 3 client: 0
Telephone number of 3 client: 0
Balance of 3 client: 0
Address of 3 client: 0
First name of 4 client: 0
Telephone number of 4 client: 0
Balance of 4 client: 0
Address of 4 client: 0
First name of 5 client: 0
Telephone number of 5 client: 0
Balance of 5 client: 0
Address of 5 client: 0
Clients are sorted in alphabetical order:
0
0
0
0
0
Client 0 have 5 phone numbers

Все процедуры отрабатывают.

[Начинающий програм]

Да я уже понял

[Katus]

procedure Sort_SNP(var a: mas);
var
  i, j: integer;
  x: Phonebook;
begin
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if a[i].SNP > a[j].SNP then
      begin
        x := a[i];
        a[i] := a[j];
        a[j] := x
      end;
  writeln('Clients are sorted in alphabetical order:');
  for i := 1 to n do
    writeln(a[i].SNP {,' ',a[i].Phone,' ',a[i].Phone2,' ',a[i].Address});
end;

Делфи не может сравнивать строки ( a[i].SNP )

[Stilet]

Делфи не может сравнивать строки

Кто сказал?