local integer n = udg_n   //--- макс значения индексов
local integer x = n       //--- Индекс X двухмерного массива B[]
local integer y = n       //--- Индекс Y двухмерного массива B[]
local integer i = 0       //--- Индекс линейного массива А[]
local integer d = 1       //--- Направление смещения (d>0 - Вверх Вправо, d<0 - Вниз Влево)
local boolean dkey = true //--- Обработка однократного прохода граней по достижению

  loop
    set udg_A[i]=LoadInteger(udg_B,x,y)
    set i=i+1
    if (x==0 or x==n or y==0 or y==n) and dkey then  //--- если однократно достигли грань
      set dkey = false                              //--- помечаем достижение грани
      set d=-1*d                                     //--- меняем направление смещения
      if x==n or x==0 then
        if y>0 then
          set y=y-1
        elseif x>0 then
          set x=x-1
        endif
      elseif y==n or y==0 then
        if x>0 then
          set x=x-1
        elseif y>0 then
          set y=y-1
        endif
      endif
    else                                             //--- если грань не достигнута
      set dkey=true
      set x=x+d
      set y=y-d
    endif
    exitwhen x==0 and y==0                           //--- выходим по достижению нулевых значений индексов
  endloop