Заполнение матрицы спиралью

program zmeika;
const n=3; m=5;
var a:array[0..n-1,0..m-1] of integer;
 c,z, k, i, j : integer;
begin
(*
for (z = 0; z < m + n - 1;++z)
{
    if (k==0) { if (z < n) {i = z; j = 0;} else {i= n-1; j= z-n+1;}}
        else  { if (z < m) {j = z; i = 0;} else {j= m-1; i= z-m+1;}}
 
    if (k==0)  while ( (j>=0 ) && ( i>=0)  && ( j<m) ) { a[i--][j++]= ++c; k=1;}
        else   while ( (j>=0 ) && ( i< n )  )          { a[i++][j--]= ++c; k=0;}
}
*)
c:=0;
k:=1;
for z := 0 to m + n - 1 do
begin
    if (k=0) then begin  if (z < n) then begin i := z; j := 0 end else begin i:= n-1; j:= z-n+1 end end
        else  begin if (z < m) then begin j := z; i := 0 end else begin j:= m-1; i:= z-m+1 end end;
 
    if (k=0) then  while ( (j>=0 ) and ( i>=0)  and ( j<m) ) do begin Inc(c); a[i][j] := c; Dec(i); Inc(j); k:=1; end
        else   while ( (j>=0 ) and ( i< n )  ) do begin Inc(c); a[i][j] := c; Inc(i); Dec(j); k:=0; end
end;
 
for i:=0 to n-1 do begin
  for j:= 0 to m-1 do Write(a[i,j]:4);
  WriteLn;
end;
 
end.

for z:=0 to m+n-2 do

const n=3; m=5;
var
  a: array [0..n-1, 0..m-1] of Integer;
  c, z, k, i, j: Integer;
begin
  c:=0; k:=1;
  for z:=0 to m+n-2 do begin
    if k=0 then begin
      if z<n
      then begin i:=z;   j:=0;     end
      else begin i:=n-1; j:=z-n+1; end;
      while (i>=0) and (j<m) do begin
        Inc(c); a[i,j]:=c; Dec(i); Inc(j);
      end; 
      k:=1;
    end else begin
      if z<m
      then begin j:=z;   i:=0;     end
      else begin j:=m-1; i:=z-m+1; end;
      while (j>=0) and (i<n) do begin
        Inc(c); a[i,j]:=c; Inc(i); Dec(j);
      end;
      k:=0;
    end;
  end;
  for i:=0 to n-1 do begin
    for j:=0 to m-1 do Write(a[i,j] :4); WriteLn;
  end;
end.