Имеется N транспортных средств (ТС). Каждое ТС характеризуется ценой, мощностью двигателя и грузоподъемностью. Упорядочить список ТС: по мощности двигателя, по грузоподъемности — Pascal(Паскаль)

type ts=record
          nom,dvigok,cena,gruzpod:integer;
          end;
var a:array[1..100] of ts;
    x:ts;
    n,i,j:byte;
    begin
write('введите количество транспортных средств n=');
readln(n);
writeln('введите данные:');
for i:=1 to n do
 begin
  writeln('тс ',i);
  a[i].nom:=i;
  writeln('цена ');readln(a[i].cena);
  writeln('мощность двигателя ');readln(a[i].dvigok);
  writeln('грузоподъёмность ');readln(a[i].gruzpod);
 end;
 
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].dvigok>a[j].dvigok then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('по мощности с наименьшей');
for i:=1 to n do
writeln(a[i].nom,' ',a[i].cena,'  ',a[i].dvigok);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].gruzpod>a[j].gruzpod then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('по грузопод с наименьшей');
for i:=1 to n do
writeln(a[i].nom,' ',a[i].cena,'  ',a[i].gruzpod);
readln
end.