Вывести фамилии пассажиров по алфавиту - Pascal ABC

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

Вводятся фамилии пассажиров и масса багажа(двузначное число). Вывести 2 списка:1-пассажир-багаж в алфавитном порядке, 2-пассажир-багаж по убыванию багажа,использовав метод пузырька.

Решение задачи: «Вывести фамилии пассажиров по алфавиту»

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

type pass=record
          fam:string;
          bag:integer;
          end;
var a:array[1..20] of pass;
    n,i,j:integer;
    x:pass;
begin
repeat
writeln('Введите число пассажиров от 2 до 20 n=');
readln(n);
until n in [2..20];
for i:=1 to n do
 begin
  writeln('Пассажир ',i);
  write('Фамилия: ');
  readln(a[i].fam);
  repeat
  write('Вес багажа, двузначное число: ');
  readln(a[i].bag);
  until a[i].bag in [10..99];
 end;
for i:=1 to n-1 do
for j:=1 to n-i do
If a[j].fam>a[j+1].fam then
 begin
  x:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=x
 end;
writeln('Список по алфавиту');
for i:=1 to n do
writeln(a[i].fam,' ',a[i].bag);
for i:=1 to n-1 do
for j:=1 to n-i do
If a[j].bag<a[j+1].bag then
 begin
  x:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=x
 end;
writeln('Список по убыванию веса багажа');
for i:=1 to n do
writeln(a[i].fam,' ',a[i].bag);
end.

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

Этот код написан на языке Pascal ABC и выполняет следующие действия:

Запрашивает у пользователя количество пассажиров от 2 до 20 и сохраняет его в переменной n.
Создает массив a типа pass для хранения информации о пассажирах.
Запрашивает у пользователя данные о каждом пассажире, включая фамилию и вес багажа, и сохраняет их в соответствующем элементе массива a.
Использует алгоритм сортировки, чтобы отсортировать массив a по фамилии пассажира в алфавитном порядке.
Выводит отсортированный список пассажиров по алфавиту, включая их фамилию и вес багажа.
Повторяет шаги 3-5 для каждого пассажира в массиве a, чтобы отсортировать список по убыванию веса багажа.
Выводит отсортированный список пассажиров по убыванию веса багажа, включая их фамилию и вес багажа.
Конец программы.