как связать массивы?

[danbes1]

вот задача
модифицировать программу чтобы она выводила значения в виде таблицы по абсолютной величине Х. массив Х я упорядочил. надо чтобы он ставил остальные значения в массивах соответствующему иксу. как сделать это?
вот прога:
program algoritm;
{$N+}
uses crt;
var
s:array [1..100] of integer;{левый массив для упорядочивания}
Err:array [1..100] of string; {Массив ошибок}
o:array [1..100] of integer;{x}
t:array [1..100] of integer; {p}
e:array [1..100] of extended;{c}
a,b,c:extended;
i:integer;
x1,x2,x3,p1,p2,p3:integer;
K,L,H:string;
v:integer;
j,m:integer;
n:integer;
begin
clrscr;
writeln('Сколько пар значений Х и Р будете считать=');
read(n);
begin
writeln('значение Х не может быть меньше или равно 0');
for i:=1 to n do
begin
repeat
write('Введите x',i,':');
readln(o[i]);
until o[i]>0;
end;
end;

for i:=1 to n do
begin
write('Введите p',i,':');
readln(t[i]);
end;

for i:=1 to n do {Блок проверки}
begin
K:='Под корнем не может быть отрицательного числа!';
L:='Отрицательное число пож знаком логарифма!';
H:='В знаменателе не может быть 0!';

if o[i]*o[i]*o[i]-1.5<0 then
Err[i]:=K;
if o[i]*o[i]-1.5=0 then
Err[i]:=H;
if abs(o[i]*o[i]-t[i]/(o[i]*o[i]-1.5)-0.2)<=0 then
Err[i]:=L;
if sqrt(ln(abs(o[i]*o[i]-t[i]/(o[i]*o[i]-1.5))-0.2))=0 then
Err[i]:=H;
end; {Конец блока проверок}

for i:=1 to n do {блок решения}
begin
A:=t[i]*o[i]-sqrt(o[i]*o[i]*o[i]-1.5)-sin(o[i]);
B:=sqrt(ln(abs(o[i]*o[i]-t[i]/(o[i]*o[i]-1.5))-0.2));
C:=A/B;
e[i]:=C;
end;

{упорядочивание}
for i:=1 to n do
begin
v:=o[i];
m:=i;
for j:=i+1 to n do
if o[j]<v then
begin
v:=o[j];
m:=j;
end;
o[m]:=o[i];
o[i]:=v;
end;

{Первая строка таблицы}
writeln('x p C(x,p) ЏаЁ¬Ґз**ЁҐ');

{вывод значений}
for i:=1 to n do
begin
writeln(o[i],' | ',t[i],' | ',e[i]:8:5,' | ',Err[i]);
end;
readln;
end.


в общем как то так. в общем вопрос заключается в том что как сделать так чтобы при упорядочивании значений Х остальные массивы оставались соответствовать своему Х? заранее спасибо!