Сортировки (TurboPascal)

[BDA]

Ну хорошо. Тогда так:

for i := 1 to n - 1 do
  for j := i + 1 to n do
    if (a[i] > a[j]) or ((a[i] = a[j]) and (b[i] < b[j])) then
    begin
      z := a[i];
      a[i] := a[j];
      a[j] := z;
      z := b[i];
      b[i] := b[j];
      b[j] := z;
    end;

UPD
Пожалуйста

[VladKB1]

Сообщение от BDA

Ну хорошо. Тогда так:

for i := 1 to n - 1 do
  for j := i + 1 to n do
    if (a[i] > a[j]) or ((a[i] = a[j]) and (b[i] < b[j])) then
    begin
      z := a[i];
      a[i] := a[j];
      a[j] := z;
      z := b[i];
      b[i] := b[j];
      b[j] := z;
    end;

ОГРОМОНОЕ спасибо! Всё работает!!!