Отсортировать массив записей по возрастанию веса багажа

  type
    pBagav = record
      Talon   : String[15];  // movno integer 
      kol,wes : Integer;
    end;
  var
    a   : array[1..50] of pBagav;
    n,i : Byte;
    b   : boolean;
    c   : pBagav;
  Begin
    write('Введите количество пассажиров : '); readln(n);
    for i:=1 to n do with a[i] do begin
      writeln('------данные для ',i,'  пассажира -----');
      write('талон :'); readln(Talon);
      write('количество багажа:'); readln(kol);
      write('вес багажа :'); Readln(wes);
    end;
 
    repeat // пузырьковая сортировка
      b:=true;
      for i:=1 to n-1 do if a[i].wes>a[i+1].wes then begin
        b:=false;
        c:=a[i]; a[i]:=a[i+1]; a[i+1]:=c;
      end;
    until b;
 
    writeln; Writeln('Список пассажиров :');
    for i:=1 to n do with a[i] do begin
      writeln('--- пассажир ',i,' :');
      writeln('Талон                  : ',talon);
      writeln('Количество багажа: ',kol);
      writeln('Вес багажа           : ',wes);
    end;
 
    readln;
  End.