Структура: Выведите на экран названия всех шоколадок, расположив их в алфавитном порядке по названиям.

type
 
group = record
 
nomer: integer;//номер группы
 
headman: string;//фамилия старосты
 
count: byte;//студентов в группе
 
end;
 
var
 
mas: array [1..100] of group;
 
N: byte;//количество групп
 
ind_min: byte;//для индекса минимального элемента
 
temp: group;//вспомогательная переменная для обмена
 
begin
 
Writeln('Введите количество групп');
 
Readln(N);
 
{-- Заполнение массива записей -------------------}
 
for var i := 1 to N do
 
with mas[i] do
 
begin
 
Writeln('Введите номер ', i, '-й группы');
 
Readln(nomer);
 
Writeln('Введите фамилию старосты ', i, '-й группы');
 
Readln(headman);
 
Writeln('Введите количество студентов в ', i, '-й группе');
 
Readln(count);
 
end;
 
{-- Вывод информации из массива -------------------}
 
Writeln(' Исходный массив записей с информацией о группах:');
 
for var i := 1 to N do
 
with mas[i] do
 
begin
 
Writeln(nomer, ' ', headman, ' ', count);
 
end;
 
{-- Упорядочивание массива (сортировка выбором) ---}
 
for var i := 1 to N - 1 do //движение по отсортированной части
 
begin
 
ind_min := i;
 
for var j := i + 1 to N do //проход по неотсортированной части
 
if mas[j].nomer < mas[ind_min].nomer then//поиск минимального элемента
 
ind_min := j;//запоминание индекса минимального элемента
 
temp := mas[i];//три строки для обмена элементов массива местами
 
mas[i] := mas[ind_min];
 
mas[ind_min] := temp;
 
end;
 
{-Вывод на экран элементов упорядоченного массива -}
 
Writeln(' Упорядоченный массив записей с информацией о группах:');
 
for var i := 1 to N do
 
with mas[i] do
 
begin
 
Writeln(nomer, ' ', headman, ' ', count);
 
end;
 
end.