Заполнить матрицу по спирали, поменять местами столбцы с минимальной и максимальной суммой элементов

const n=10; {размерность матрицы}
var a:array [1..n,1..n] of integer;
 x,y,dx,dy,step,dir,k,s,count,error:integer;
begin
 for x:=1 to n do {заполнение матрицы нулями}
 for y:=1 to n do a[x,y]:=0;
 x:=n div 2; {текущие координаты в матрице - }
 y:=n div 2; {начинаем с середины}
 step:=1; {сначала шаг будет = 1 элементу}
 dir:=1; {первый шаг будет вниз, можно другие направления}
 k:=0; {дополнительный счётик поворотов}
 count:=0; {счётчик заполненных элементов}
 error:=0; {счётчик лишних шагов}
 repeat
  dx := dir div 10; {смещение по оси x}
  dy := dir mod 10; {смещение по оси y}
  for s:=1 to step do begin {заполнение матрицы}
   if (x>0) and (x<=n) and (y>0) and (y<=n) then begin
    a[y,x]:=step;
    inc(count);
   end
   else inc(error); {если можно, ставим элемент, иначе считаем лишний шаг}
   inc(x,dx); {изменить текущие координаты в матрице}
   inc(y,dy);
  end;
  if dir=10 then dir:=-1 {10 - вправо}
  else if dir=-1 then dir:=-10 {-1 - вверх}
  else if dir=-10 then dir:=1 {-10 - влево}
  else if dir=1 then dir:=10; {1 - вниз}
  inc(k); {считаем, не пора ли повернуть}
  if k=2 then begin inc(step); k:=0; end; {поворот каждые 2 шага}
 until count=n*n; {надо заполнить всю матрицу}
 for x:=1 to n do begin {вывод полученной матрицы}
  writeln;
  for y:=1 to n do write(a[x,y]:3);
 end;
 writeln;
 writeln ('Illegal steps:',error); {вывели число лишних шагов}
 writeln ('Press ENTER to exit');
 readln; {ждем нажатия Enter}
end.