Определить сумму k элементов матрицы, расположенных по спирали, разворачивающейся по часовой стрелке

const n=10;m=15;
var
  a:array [1..n,1..m] of integer;
  i,j,k,x,y,s,dx,dy,t,l:integer;
begin
  for i:=1 to n do begin  
    for j:=1 to m do begin
      a[i,j]:=random(10);
     write(a[i,j]:4);
    end;
    writeln;
  end;
  repeat
    writeformat('Начальная точка(0<x<{0},0<y<{1}):',n+1,m+1);readln(y,x);
  until (x>0) and (x<=n) and (y>0) and (y<=n);
  repeat
    writeformat('Количество элементов(0<k<{0}):',n*m+1);readln(k);
  until (k>0) and (k<=n*m);
  s:=a[y,x];
  i:=y;j:=x;t:=1;dx:=0;dy:=0;
  repeat
   dx:=dx+1;
   if i<=y-dy then while (j<x+dx) and (j<m) and (t<k) do begin j:=j+1; t:=t+1;s:=s+a[i,j];end 
              else begin j:=(x+dx>m?m:x+dx);i:=i-1;end;
   dy:=dy+1;
   if j>=x+dx then while (i<y+dy) and (i<n) and (t<k) do begin i:=i+1;t:=t+1;s:=s+a[i,j];end 
              else begin i:=(y+dy>n?n:y+dy);j:=j-1;end;
   if i>=y+dy then while (j>x-dx) and (j>1) and (t<k) do begin j:=j-1;t:=t+1;s:=s+a[i,j];end 
              else begin j:=(x-dx<=0?1:x-dx);i:=i+1;end;
   if j<=x-dx then while (i>y-dy) and (i>1) and (t<k) do begin i:=i-1;t:=t+1;s:=s+a[i,j];end 
              else begin i:=(y-dy<=0?1:y-dy);j:=j+1;end;
  until t=k;  
  writeln('s=',s);
end.

const
  sizei = 7;
  sizej = 9;
 
function CheckBounds(vi, vj: integer):= (vi > 0) and (vi <= sizei) and (vj > 0) and (vj <= sizej);
function f(k, maxk, vi, vj: integer):= (k < maxk) and CheckBounds(vi, vj); 
 
var
  a: array[1..sizei, 1..sizej] of integer;
 
begin
  for var i := 1 to sizei do
  begin
    for var j := 1 to sizej do 
    begin
      a[i, j] := Random(-10, 40);
      write(a[i, j]:4)
    end;
    writeln;
  end;
  
  var vi := ReadlnInteger('Номер строки начала спирали:'); // 5;
  var vj := ReadlnInteger('Номер столбца начала спирали:'); // 3;
  var count := ReadlnInteger('Количество суммируемых элементов:'); // 22
  
  var d := Arr(Arr(0, -1), Arr(-1, 0), Arr(0, 1), Arr(1, 0));
  var k := 1;
  var steps := 0;
  var stage := -1;
  
  var s := a[vi, vj]; 
  while f(k, count, vi, vj) do
  begin
    inc(steps); var ii := 1;
    while f(k, count, vi, vj) and (ii <= 2) do
    begin
      stage := Succ(stage) mod 4; var jj := 1;
      while f(k, count, vi, vj) and (jj <= steps) do
      begin
        inc(vi, d[stage][0]); inc(vj, d[stage][1]);
        if f(k, count, vi, vj) then 
        begin
          s := s + a[vi, vj];
          inc(k);
        end;
        inc(jj);
      end;
      inc(ii);
    end;
  end;
  
  if k < count then writeln(' Недостаточно места для разворачивания спирали, просуммировано: ', k);
  writeln('Сумма = ', s);
end.