急、计算机Pascal高手进

下面的程序：
Program ex21；
Const a:array[1..6] of integer=(7,4,8,9,1,5);
Var i,j,k:integer;
begin
for i:=1 to 6 do
begin
wrie('(');
for j:=1 to 6 do write(a[i]:2);
writeln(')');
k:=a[1];
......
a[6]:=k;
end;
end.
现在请你完成上面程序缺少的部分（为数组a赋值），
使打印结果为
（7 4 8 9 1 5）
（4 8 9 1 5 7）
（8 9 1 5 7 4）
（9 1 5 7 4 8）
（1 5 7 4 8 9）
（5 7 4 8 9 1）

for j := 1 to 5 do a[j] := a[j+1];

a[i]:=a[2];a[2]:=a[3];a[3]:=a[4];a[4]:=a[5];a[5]:=a[6];

拉丁方阵
我会你等等
源程序如下：
program lading;
const n=5;
var a,b:array[1..n,1..n]of integer;
i,j,k,q:integer;
begin
for i:=1 to n do
read(a[1,i]);

for j:=1 to n do
for i:=1 to n do
if a[1,j]=i then
begin
b[i,1]:=j;
break;
end;

for i:=1 to n do
begin
for j:=1 to n do
if b[i,1]=a[1,j] then
begin
k:=j;
break;
end;

for j:=2 to n do
begin
q:=k+j-1;
if q>n then q:=q-n;
b[i,j]:=a[1,q];
end;