Сортировка по группе - Turbo Pascal

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

uses crt;
const n=2;
type
 gruppa=record
        fio: string;
        ballinf,ballinoz,ballekoteor: real;
        grupa: string[5];
        end;
var
 gruppa1: array[1..n] of gruppa;
 i:integer;
 k1:integer;
 a:string;
 b,c,d:real;
 k:string;
 sum:real;
 
begin
clrscr;
for i:=1 to n do
 begin
  with gruppa1[i] do
   begin
    writeln('Введіть ПІБ: ');
    readln(fio);
    writeln('Введіть групу');
    readln(grupa);
    writeln('Введіть бал з інформатики');
    readln(ballinf);
    writeln('Введіть бал з іноземної мови');
    readln(ballinoz);
    writeln('Ведіть бал з економічної теорії');
    readln(ballekoteor);
    
   end;
 end;
for i:=1 to n-1 do begin
    if gruppa1[i].grupa<gruppa1[i+1].grupa then begin
       k:=gruppa1[i].grupa;
       a:=gruppa1[i].fio;
       b:=gruppa1[i].ballinf;
       c:=gruppa1[i].ballinoz;
       d:=gruppa1[i].ballekoteor;
       gruppa1[i].grupa:=gruppa1[i+1].grupa;
       gruppa1[i].fio:=gruppa1[i+1].fio;
       gruppa1[i].ballinf:=gruppa1[i+1].ballinf;
       gruppa1[i].ballinoz:=gruppa1[i+1].ballinoz;
       gruppa1[i].ballekoteor:=gruppa1[i+1].ballekoteor;
       gruppa1[i+1].grupa:=k;
       gruppa1[i+1].fio:=a;
       gruppa1[i+1].ballinf:=b;
       gruppa1[i+1].ballinoz:=c;
       gruppa1[i+1].ballekoteor:=d;
       end;
    end;
Writeln('Таблиця');
Writeln('--------------------------------------------------------------------');
Writeln('||', 'ПІБ':50,'|', 'Інформатика':12,'|','Іноземна мова':14,'|', 'Економічна теорія':18 ,'|','Група':5,'||');
Writeln('--------------------------------------------------------------------');
for i:=1 to n do
Writeln('||',gruppa1[i].fio:50,'|',gruppa1[i].ballinf:12,'|',gruppa1[i].ballinoz:14,'|',gruppa1[i].ballekoteor:18,'|',gruppa1[i].grupa:5,'||');
writeln('--------------------------------------------------------------------');
readln;
begin
 for i:=1 to n do
                    if gruppa1[i].grupa='104' then
                        begin
                            sum:=gruppa1[i].ballinf+gruppa1[i].ballinoz+gruppa1[i].ballekoteor;
                            inc(k1)
                        end;
                if k1<>0 then sum:=sum/k1;
                writeln ('Cредний балл в групі 104=',sum)
            end;
end.

Нужно отсортировать по группе для этого использовал цикл, но он не роботает

for i:=1 to n-1 do begin
    if gruppa1[i].grupa<gruppa1[i+1].grupa then begin
       k:=gruppa1[i].grupa;
       a:=gruppa1[i].fio;
       b:=gruppa1[i].ballinf;
       c:=gruppa1[i].ballinoz;
       d:=gruppa1[i].ballekoteor;
       gruppa1[i].grupa:=gruppa1[i+1].grupa;
       gruppa1[i].fio:=gruppa1[i+1].fio;
       gruppa1[i].ballinf:=gruppa1[i+1].ballinf;
       gruppa1[i].ballinoz:=gruppa1[i+1].ballinoz;
       gruppa1[i].ballekoteor:=gruppa1[i+1].ballekoteor;
       gruppa1[i+1].grupa:=k;
       gruppa1[i+1].fio:=a;
       gruppa1[i+1].ballinf:=b;
       gruppa1[i+1].ballinoz:=c;
       gruppa1[i+1].ballekoteor:=d;

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

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

var x:gruppa;
..........................
for i:=1 to n-1 do
for j:=i+1 to n do
if gruppa1[i].grupa>gruppa1[j].grupa then
 begin
  x:=gruppa1[i];
  gruppa1[i]:=gruppa1[j];
  gruppa1[j]:=x;
 end;

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

В данном коде происходит сортировка массива gruppa1 по возрастанию значения переменной gruppa.

Переменная x объявляется и инициализируется значением gruppa1[i]. Это будет наш временный элемент, который мы будем использовать для обмена местами с элементом, находящимся на текущей итерации внутреннего цикла.
Затем следует внешний цикл for, который проходит по всем элементам массива gruppa1 от 1 до n-1.
На каждой итерации внутреннего цикла происходит проверка условия gruppa1[i].grupa > gruppa1[j].grupa. Если это условие истинно, то значит текущий элемент gruppa1[i] больше следующего элемента gruppa1[j], и мы можем поменять их местами.
Если условие истинно, то мы присваиваем переменной x значение gruppa1[i], а gruppa1[i] присваиваем значение gruppa1[j]. Таким образом, gruppa1[i] становится равным gruppa1[j], а gruppa1[j] становится равным x.
После завершения внутреннего цикла, все элементы массива gruppa1 будут отсортированы по возрастанию gruppa.