Задача на массивы, Помочь разобраться Опции

[dog]

Задание

Дана матрица Wmxn, элементами которой являются натуральные числа, не превосходящие 30.

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


Есть такое решение

program PRP9;
uses crt;
const n=3; 
m=3;       
var a:array[1..m,1..n] of 1..30; 
i,j,k,l:byte;
min,max:1..30; 
begin
writeln('Ввести элементы массива');
for i:=1 to m  do 
for j:=1 to n do
readln(a[i,j]);

For j:=1 to n do
begin
max:=a[1,j]; min:=a[1,j];
For i:=1 to m do
begin
If a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
end;
For k:=1 to min do
write('+');
writeln;
For i:=1 to min-2 do
begin
write('+');
for j:=1 to min-2 do
write(' ');
write('+');
writeln;
end;
For l:=1 to min do
write('+');
writeln;

end;
end.

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