Спираль

[radon228]

Построить матрицу по спирали,размерность 10*10. Из нижнего левого - в право.
P.S Как нужно начать чтобы она начала работать с нижнего левого в право,вот это мне не понятно.

Надеюсь на скорый ответ.


program spir;
uses crt;
var a: array [1..10,1..10] of byte;
i,j,k,v,b,c,d: byte;
begin
clrscr;
i:=10; j:=1; v:=1; b:=0; c:=0; d:=2;
a[i,j]:=1; k:=2;
repeat
while i>v do
begin
dec(i); a[i,j]:=k; inc(k);
end;
inc(v);
while j<10-b do
begin
inc(j); a[i,j]:=k; inc(k);
end;
inc(b);
while i<10-c do
begin
inc(i); a[i,j]:=k; inc(k);
end;
inc(c);
while j>d do
begin
dec(j); a[i,j]:=k; inc(k);
end;
inc(d);
until k>100;
for i:=1 to 10 do
begin
writeln;
for j:=1 to 10 do
begin
if a[i,j]<=100 then
write (a[i,j]:2, ' ');
if a[i,j]>=100 then
if a[i,j]=100 then
end;
end;
readln
end.