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

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.

procedure swap(zap1:spisok; zap2:spisok);
     var zape:spisok;
     begin
          zape:=zap1;
          zap1:=zap2;
          zap2:=zape;
     end;

type spisok=record
          group:string;
          family:string;
          bal:byte;
         end;

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;

procedure swap(var zap1,zap2:spisok);

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;