Заполнить матрицу по спирали, начинающейся в левом верхнем углу, против часовой стрелки (+ блок схема)

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax]of integer;
    m,n,x,y,k,p,z:integer;
begin
clrscr;
repeat
write('Введите количество строк от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
repeat
write('Введите количество столбцов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
x:=1;
y:=1;
k:=0;
p:=1;
for z:=1 to m*n do
 begin
  a[y,x]:=z;
  case k mod 4 of
  0:begin
    inc(y); //вниз
    if y=m-p+1 then inc(k);//поворот
    end;
  1:begin
    inc(x);//вправо
    if x=n-p+1 then inc(k);//поворот
    end;
  2:begin
    dec(y);//вверх
    if y=p then inc (k);//поворот
    end;
  3:begin
    dec(x); //влево
    if x=p+1 then
     begin
      inc(p);
      inc(k);//поворот
     end;
    end;
  end;
 end;
writeln('p=',p);
for y:=1 to m do
  begin
    for x:=1 to n do
    write(a[y,x]:4);
    writeln;
  end;
end.