Вопрос Сортировка 3 массивов в Pascal

[андрюха=)]

Задача поставить массивы в порядке убывания.
У меня первый массив сортирует верно, но остальные не хочет. Подскажите в чем проблема.

program sort;
var
a,b,c,a1,b1,c1: array[1..3] of integer;
begin
a[1]:=2; a[2]:=8; a[3]:=6;
b[1]:=4; b[2]:=5; b[3]:=9;
c[1]:=3; c[2]:=7; c[3]:=1;
writeln(a,b,c,a1,b1,c1);
if (a[1]>b[1]) and (a[1]>c[1]) then
a1:=a;
if (b[1]>a[1]) and (b[1]>c[1]) then
a1:=b;
if (c[1]>a[1]) and (c[1]>b[1]) then
a1:=c;
if a1=b then
begin
if a[1]>c[1] then
b1:=a;
if c[1]>b[1] then
b1:=c;
end;
writeln(a,b,c,a1,b1,c1);
end.

 

[arturad121e4``4213]

к элементам массива надо обращаться с индексом : a1:=a;,writeln(a,b,c,a1,b1,c1); это все чушь!