Привязка [Delphi]

[Lemo]

СабЖ: Есть два массива:
1-й:

1 2 3 4 5

2-й:

 4 2 5 8 7

Нужно отсортировать 2-й массив (ето я легко делаю пузырьком) и "привязать" к нему елемы 1-го(вот тут ерунда получаеться)!
Давайте пример приведу:

2 1 3 5 4
2 4 5 7 8

[ОДИНОЧЕСТВО В СЕТИ]

и "привязать"

это чего с ними сделать?

[Lemo]

Просто вывести на екран.
Дано:

1  2  3  4  5
1  7  2  3  5

Резалт:

1 3 4 5 2
1 2 3 5 7

[ОДИНОЧЕСТВО В СЕТИ]

а ты когда массив сортируешь элементы местами меняешь?
вот когда меняешь и во 2 массиве меняй эл-ты с соответствующими индексами

[ОДИНОЧЕСТВО В СЕТИ]

а ты когда массив сортируешь элементы местами меняешь?
вот когда меняешь и во 2 массиве меняй эл-ты с соответствующими индексами
что то вроде а -сортируемый b- просто массив

....
if a[i]>a[i+1] then begin
tmp:=a[i];
a[i]:=a[i+1];
a[i+1]:=tmp;
tmp:=b[i];
b[i]:=b[i+1];
b[i+1]:=tmp;
.......
end;

[Lemo]

ща просмотрю!

[ОДИНОЧЕСТВО В СЕТИ]

пост №510 символов

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
i,j,tmp:integer;
a,b:array[1..5] of integer;
begin
Randomize;
for i := 1 to 5 do
   begin
    b[i]:=random(15)+1;   // b[i]:=i; НО такой бред выводит
    write(b[i],' ');
   end;

     writeln;

   for i := 1 to 5 do
    begin
    a[i]:=random(15)+1;
    write(a[i],' ');
    end;


For j := 1 to 5 do
   For I := 1 to 5 do
  begin

if a[i]>a[i+1] then
begin
tmp:=a[i];
a[i]:=a[i+1];
a[i+1]:=tmp;
tmp:=b[i];
b[i]:=b[i+1];
b[i+1]:=tmp;

end;
end;

writeln;
writeln;
for i := 1 to 5 do
   begin
       write(b[i],' ');

   end;
     writeln;
   for i := 1 to 5 do
    write(a[i],' ');


 readln;
end.

Что то не так, должно быть:
3 8 11 15 2
1 2 4 8 13

[ОДИНОЧЕСТВО В СЕТИ]

uses
  SysUtils;
  type vector =array[1..5] of integer;
var
i,j,tmp:integer;
a,b:vector; 
procedure exchange(var a,b:integer);
var c:integer;
begin
c:=a; a:=b; b:=c; end;
procedure Sorting (n:integer; Var x:Vector;var y:vector);{x-сортируемый массив y-просто массив}
var i:integer; swop:boolean;
begin
repeat
swop:=false;
for i:=1 to n-1 do
if x[i]>x[i+1] then begin        
exchange(x[i],x[i+1]);
exchange(y[i],y[i+1]);
 swop:=true; end;
n:=n-1;
until not swop;
end;
begin
Randomize;
for i := 1 to 5 do
  begin
    b[i]:=random(15)+1;   
    write(b[i],' ');
  end;
writeln;
for i := 1 to 5 do
  begin
    a[i]:=random(15)+1;
    write(a[i],' ');
  end;
sorting(5,b,a);
writeln;
writeln;
for i := 1 to 5 do
   begin
       write(b[i],' ');
   end;
writeln;
for i := 1 to 5 do
  write(a[i],' ');
readln;
end.