Вывести в алфавитном порядке записи о предметах с указанием лектора, аудитории и количества часов занятий в семестре - Turbo Pascal

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

Вывести в алфавитном порядке записи о предметах с указанием лектора, аудитории и количества часов занятий в семестре. Помогите, пожалуйста, написать программу в TP.

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

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

program zapis;
 
const
  k = 3;
 
type
  univer = record
    pred, lector: string[120];
    aud, chas: integer;
  end;
 
var
  imax, j, n, i: byte;
  tab: array[1..k] of univer;
  b: univer;
  buf: string[120];
 
begin
  for i := 1 to k do 
    with tab[i] do 
    begin
      writeln('введите название предмета: ');
      readln(pred);
      writeln('введите ФИО лектора');
      readln(lector);
      writeln('введите номер аудитории');
      readln(aud);
      writeln('введите кол-во часов');
      readln(chas);
    end;
  n := k;
  for i := 1 to n - 1 do
  begin
    imax := i;
    for j := i + 1 to n do
      if tab[j].pred < tab[imax].pred then 
        imax := j;
    buf := tab[i].pred;
    tab[i].pred := tab[imax].pred;
    tab[imax].pred := buf;
  end;
  
  writeln(' предмет лектор  аудитория часы ');
  for i := 1 to k do 
    with tab[i] do
      writeln(' ', pred, ' ', lector, ' ', aud, ' ', chas);
end.

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

В данном коде используется язык программирования Turbo Pascal. Код представляет собой программу, которая запрашивает у пользователя информацию о предметах, лекторах, аудиториях и количестве часов занятий в семестре. Затем, эта информация сортируется по названию предмета в алфавитном порядке и выводится на экран. Список переменных и их значений:

k - количество предметов для записи (константа равная 3)
univer - тип записи, представляющий один предмет. Содержит поля: pred (название предмета), lector (ФИО лектора), aud (номер аудитории), chas (количество часов занятий)
i, j, n - переменные для цикла, используемые для перебора элементов массива
tab - массив, в который записывается информация о предметах
b - временная переменная типа univer, используемая для хранения информации о текущем предмете
buf - строка, используемая для хранения временного значения названия предмета Программа работает следующим образом:
Задается количество предметов для записи (k).
В цикле запрашивается информация о каждом предмете и записывается в соответствующую структуру univer.
Затем, информация сортируется по названию предмета в алфавитном порядке. Для этого используется вложенный цикл, который сравнивает название предмета текущего элемента с названием предмета следующего элемента. Если название текущего элемента больше, то они меняются местами.
После сортировки, информация выводится на экран в порядке: название предмета, ФИО лектора, номер аудитории, количество часов занятий.