поменять местами столбцы матриц, поменять местами столбцы в матрице Опции

[Трейсер]

вот прога.
(Произвести циклический сдвиг двумерного массива К раз где К - простое число.)
такая уже была я видел. но здесь надо не делать сдвиг, а просто поменять местами столбцы
Вот что я написал но здесь много неправельно программа даже не компилируеться помогите розобратся. спс.

program lab3;
uses crt;
const n=3;
var a: array [1..n, 1..n] of integer;
temp, i, j:byte;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a [i,j]:=random (101);
end;
writeln('');
end;
writeln('')
begin
temp:=a[i,1];
a[i,1]:=a[1,2];
a[i,2]:=[i,3];
a[i,3]:=temp;
writeln(a[i,j]:3);
writeln('');
end.

а еще сказано что надо менять местами К раз.Как это задать? а то у меня меняет местами на 1 столбец.