Массив: При нечётных значениях N изменить центральные элементы и вывести на экран исходный и изменённый массив...

var a:array[1..10,1..10] of integer;
    n,k,i,j,p,x:integer;
begin
repeat
write('Введите размер матрицы от 2 до 10 n=');
readln(n);
until n in[2..10];
randomize;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
if odd(n) then
 begin
  k:=n div 2;//количество периметров
  for p:=1 to k do //переставляем в каждом периметре
   begin
    x:=a[k+1,p];  //запомним левый средний
    a[k+1,p]:=a[p,k+1]; //на его место верхний средний
    a[p,k+1]:=a[k+1,n-p+1]; //на его место правый средний
    a[k+1,n-p+1]:=a[n-p+1,k+1];//на его место нижний средний
    a[n-p+1,k+1]:=x;//на его место левый средний
   end;
  writeln('Перестановка центральных по спирали');
  for i:=1 to n do
   begin
    for j:=1 to n do
    write(a[i,j]:3);
    writeln;
   end;
 end
else writeln('n четное, матрица не меняется')
end.