Распечатать списки студентов по группам - Pascal ABC

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

Написать программу формулирования ведомости об успеваемости студентов. Каждая запись этой ведомости должна содержать номер группы,фамилию студента, средний балл за последнюю сессию.необходимо распечатать списки студентов по группам.

type spisok=record
          group:string;
          family:string;
          bal:byte;
         end;
     arr=array[1..100] of spisok;
var zap:arr;i,j,n:byte;
Begin
write('Введите кол-во записей:');readln(n);
//Ввод данных
for i:=1 to n do
begin
write('Группа ',i,'-го студента: ');readln(zap[i].group);
write('ФИО ',i,'-го студента: ');readln(zap[i].family);
write('Бал ',i,'-го студента: ');readln(zap[i].bal);
end;
//Сортировка  
for i:=1 to n-1 do
for j:=1 to n-1 do
if zap[j].bal<zap[j+1].bal then swap(zap[i],zap[i+1]);
writeln; 
//Вывод
for i:=1 to n do
begin 
write(zap[i].group,'  ',zap[i].family,'  ',zap[i].bal);
writeln;
end;
End.

ВОТ строка then swap(zap[i],zap[i+1]);неизвестный идентификатор swap

Решение задачи: «Распечатать списки студентов по группам»

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

type spisok=record
          group:string;
          family:string;
          bal:byte;
         end;
     arr=array[1..100] of spisok;
var zap:arr;i,j,n:byte;
procedure swap(zap1:spisok; zap2:spisok);
     var zape:spisok;
     begin
          zape:=zap1;
          zap1:=zap2;
          zap2:=zape;
     end;

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

В данном коде используется язык программирования Pascal ABC.

Объявляется тип данных spisok, который представляет собой запись (record) с полями: group, family, bal (строка, строка, байт).
Затем объявляется массив arr типа spisok с размером 100 элементов.
Переменные zap, i, j, n типа byte (байт) инициализируются значением 0.
Объявляется процедура swap, которая принимает два аргумента типа spisok и производит обмен значениями между ними, используя временную переменную zape типа spisok. Примечание: В данном коде не распечатываются списки студентов по группам. Код предоставляет лишь структуру данных и процедуру обмена значениями между элементами этой структуры. Для реализации задачи вывода списков студентов по группам потребуется дополнительный код.