помогите оптимизировать программу qBasic

CLS
DIM a(6, 6)
pMin = 1
pMax = 6
symb = 3
FOR j = 3 TO 1 STEP -1
FOR i = pMin TO pMax
a(i, pMin) = symb
a(i, pMax) = symb
a(pMin, i) = symb
a(pMax, i) = symb
NEXT i
pMin = pMin + 1
pMax = pMax - 1
symb = symb - 1
NEXT j

FOR x = 1 TO 6
FOR y = 1 TO 6
PRINT USING "##"; a(x, y);
NEXT y
PRINT
NEXT x

Вот я только до этого допер....

спроси у препода, хотя бы в каком направлениии думать.
долго сидел - идей много, но они не короче этой

Вообще-то, наверно, любую программу можно создавать по разным алгоритмам. Хотя и говорится, что хороша верёвка длинная, а программа короткая, всё-таки не следует на начальном уровне изучения программирования стремиться к созданию компактных программ. Лишь бы работала и была понятна самому автору. А создание оптимальной программы придёт с опытом программирования. Так что препод не совсем прав, не надо спешить делать из начинающего сразу программиста-виртуоза.
А подход может быть и таким: заполнение по строкам - или по столбцам (что в принципе одно и то же, конечно, но он же просит сделать по другому) ))) Или рассмотреть заполнение данного массива с точки зрения его симметрии...

Интересная задачка :-)
Вроде простенькая, а в голову ничего путного не приходит. Если за один проход все делать, можно так (алгоритм на Паскале)

for i:=1 to 6 do
for j:=1 to 6 do
if abs(i-j)=5 then a[i,j]:=3
else if ((i=3) or (i=4) or (j=3) or (j=4)) then a[i,j]:=1
else a[i,j]:=2;

abs - модуль числа. Только зачем оно это надо? Разве для разнообразия :-) Короче и проще не получается