Двумерные массивы: построить квадрат из символов "+"

[Наташечка21]

Дана матрица W(MxN), элементами которой являются натуральные числа, не превосходящие 30. Элементы матрицы задайте случайным образом. Выведите полученную матрицу на экран и для каждого столбца постройте квадрат из символов «+», причем количество символов, составляющих сторону квадрата, равно значению наименьшего элемента.
з.ы. Знаю как вывести матрицу,как задать ее и т.п., помогите пожалуйста построить квадрать из символов "+"

[ZX Spectrum-128]

For i:=1 to n do
  Write('+'); writeln;
For i:=1 to n-2 do
  Begin
    Write('+');
    For j:=1 to n-2 do 
       Write(' ');
    Write('+'); writeln;
  End;
For i:=1 to n do
  Write('+');

[Наташечка21]

но она не печатает квадрат для каждого столбца..а только один квадрат...может где-нибудь я допустила ошибку?

program zad223;
uses crt;
const n=4;
m=6;
var i,j:integer;
a:array[1..n,1..m] of integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(50)-25;
writeln('cв*ал© ¬*ббЁў:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3,' ');
writeln;
end;
 for i:=1 to n do
 write('+');
 writeln;
for i:=1 to n-2 do
begin
write('+');
for j:=1 to n-2 do
write(' ');
write('+');
writeln;
end;
for i:=1 to n do
write('+');
readkey;
end.

[ZX Spectrum-128]

... для каждого столбца... причем количество символов, составляющих сторону квадрата, равно значению наименьшего элемента.

Вам еще эту задачу решить нужно сперва.