Как сортировать параметр, но с ним сдвигать и остальные строки?

uses crt;
 
const
  m = 255;
 
type
  ma4ina = record
    model: string[15];
    pacxod: real;
    obem: real;
  
  end;
  
  peremen1 = array[1..m] of ma4ina;
 
var
  a: peremen1;
  f1: text;
  n: integer;
 
procedure fail(var na: integer; var b: peremen1);
 
begin
  reset(f1);// чтение
  na := 0;
  while not eof(f1) do
  begin
    inc(na);//колво
    with b[na] do
    begin
      readln(f1, model);
      readln(f1, obem);
      readln(f1, pacxod);
      
    end;
  end;
  close(f1);
end;
 
procedure vvd(na: integer; b: peremen1);
var
  i: integer;
begin
  writeln('|Группа|':8, 'Специальность|':14, 'Курс|':5, 'Кол-во учащихся|':16);
  for i := 1 to na do
    with b[i] do
      writeln(model:8, obem:14, pacxod:5);
end;
 
procedure coPTuPoBka_no_MogeJLu(na: integer; var b: peremen1);
var
  c, x: string;j, incr: integer;i: integer;
begin
  incr := n div 2; //берет эл и делит на 2
  while  incr > 0 do 
  begin//если эл стремится к нуля то 
    for  i := incr + 1 to n do  
    begin//поиск мин
      j := i - incr; //и с другой стороны максимальный
      while  j > 0 do //если стримится дж к 0
        if b[j].model > b[j + incr].model then  begin
          c := b[j].model;
          b[j].model := b[j + incr].model;
          b[j + incr].model := c; //если над переставим
          j := j - incr
        end 
        else   j := 0{ останов проверки} 
    end; 
    incr := incr div 2
  end;
  
end;
 
 
 
begin
  assign(f1, 'laba1.2.txt');
  fail(n, a);
  vvd(n, a);
  writeln;
  writeln('Отсортированный список!');
  coPTuPoBka_no_MogeJLu(n, a);
  vvd(n, a);
  
end.

var c:ma4ina;
.........................
c := b[j];
b[j] := b[j + incr];
b[j + incr]:= c; //если над переставим