Ошибся немного:

for j:=1 to m do
begin
for i:=1 to n do B[i]:=A[i, j]; //вгоняем m-й столбец во временный массив B[n]

A[1, j]:=B[n]; //на 1-й строке должен быть элемент из последней строки

for i:=2 to n do A[i, j]:=B[i-1]; //заполняем оставшуюся часть m-го столбца в массиве A

end;