Работа со списками

[iCaesy]

Собственно задание:
Необходимо вывести список школьников по классам: сначала всех учеников 9 класса, затем – 10, затем – 11. Внутри одного класса порядок вывода фамилий должен быть таким же, как на входе.

Проблема с сортировкой, вроде бы обычный пузырек, но что то я не соображу как...

type
  Ukazatel = ^S;
  S = Record
    Klass: integer;
    Fam: String;
    Next: Ukazatel ;
  End;

var
  Head, x, curr, prev: Ukazatel;
  kol: Integer;
  str, strFam, strKlass: String;

function getKlass(var str: String): Integer;
begin
  delete(str, pos(' ', str), str.Length + 1);
  getKlass := StrToInt(str);
end;

function getFam(var str: String): String;
begin
  delete(str, 1, 2);
  getFam := str;
end;

procedure Init(var str: String);
var
  strKlass, strFam: String;
begin
  strKlass := str;
  strFam := str;
  New(x^.Next);
  x := x^.Next;
  x^.Klass := getKlass(strKlass);
  x^.Fam := getFam(strFam);
  x^.Next := nil;
end;

begin
  Writeln('Сколько человек будем добавлять: ');
  readln(kol);
  Writeln('Введите номер класса и фамилю через пробел: ');
  readln(str);
  
  strFam := str;
  strKlass := str;
  
  New(x); 
  x^.Klass := getKlass(strKlass); 
  x^.Fam := getFam(strFam);
  x^.Next := nil; 
  Head := x; 
  
  while kol - 1 <> 0 do
  
  begin
    Writeln('Введите номер класса и фамилю через пробел: ');
    readln(str);
    Init(str);
    dec(kol);
  end;
  
  writeln('Результат');
  
  x := Head;
  curr := Head;
  
  {                    Тут сортировка                          }   
  while x <> nil do
  begin
    if(curr ^.Klass < x^.Klass) then
    begin
      prev := x^.Klass;
      x^.Klass := curr;
      curr := prev;
    end;
    x := x^.Next;
  end;
  {                    Тут сортировка                          }
  
  x := Head;
  while x <> nil do
  begin
    Writeln('Фамилия: ', x^.Fam, ' Класс: ', x^.Klass);
    x := x^.Next;
  end;
end.

[Stilet]

Думаю тут без сортировки обойтись можно.

for i:=9 to 11 do begin
  x:=head;
  while x <> nil do begin
   if(x^.Klass=i) then
    begin
     Выводим x^;
    end;
    x := x^.Next;
  end;
end;

[iCaesy]

Спасибо большое!