Списки + упорядочевание :), теория + ма-а-аленький пример Опции

[Gl00M]

Вот у меня есть список:

Код

Иванова Ирина Ж 12-52-17
Емельянов Иван М 13-15-26
....

Ну и так далее.. в списке много повторяющихся фамилий (именно фамилий!). Как упорядочить их по невозрастанию? Т.е. на 1м месте должны, по идеи, стоять все Ивановы (т.к. их больше всего), а на последнем, допустим, Ленин. Массив сам состоит из 20 строк и 4 колонок...
спасибо!

[Gl00M]

Я описываю массив так:

 const n=20; m=4;
 spis:array[1..n,1..m] of string[15]=(
 ('Ivanova',     'Irina',      'Zh', '12-54-72'),
 ('Makarov',     'Sergei',     'M',  '15-85-63'),
 ('Abakumov',    'Vladimir',   'M',  '12-21-13'),
 ('Ratchenko',   'Ivan',       'M',  '17-29-06'),
 ('Ivanova',     'Elena',      'Zh', '15-54-93'),
 ('Vetrova',     'Natalia',    'Zh', '12-23-52'),
 ('Lenin',       'Vladimir',   'M',  '14-16-09'),
 ('Makarov',     'Vitalij',    'M',  '12-35-55'),
 ('Ivanov',      'Ivan',       'M',  '15-63-85'),
 ('Evstegneeva', 'Tatiana',    'Zh', '10-45-15'),
 ('Larina',      'Aleksandra', 'Zh', '12-35-54'),
 ('Ivanova',     'Inna',       'Zh', '12-53-65'),
 ('Vetrov',      'Sergei',     'M',  '19-12-12'),
 ('Makarova',    'Anna',       'Zh', '15-31-97'),
 ('Evstegneeva', 'Svetlana',   'Zh', '12-15-74'),
 ('Petrov',      'Petr',        'M',  '14-65-66'),
 ('Petrova',     'Nadezhda',   'Zh', '14-65-66'),
 ('Abakumova',   'Ludmila',    'Zh', '12-25-88'),
 ('Larin',       'Andrei',      'M',  '12-12-13'),
 ('Ratchenko',   'Elena',      'Zh', '17-29-06')
                                       );

volvo, я спросил "Как упорядочить по невозрастанию?.е. на 1м месте должны, по идеи, стоять все Ивановы (т.к. их больше всего), а на последнем, допустим, Ленин.", т.к. в задании так сказано... ))

Сообщение отредактировано: volvo - 3.11.2006 22:41