где ошибка?

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

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

program zad223;
uses crt;
const n=3; m=4;
var a:array[1..n,1..m] of integer;
min,i,j:integer;
begin
randomize;
for i:=1 to n do
begin
   for j:=1 to m do
   begin
     a[i,j]:=random(30);
     write(a[i,j]:4);
     end;
     writeln;
     end;
     for j:=1 to m do begin
     min:=a[1,j];
     for i:=1 to n do
     if min>a[i,j] then
     min:=a[i,j];
     writeln('naimenshiy ' ,j,' stolbca= ',min);
     end;
     for j:=1 to m do
     writeln('kvadrat ',j,' stolbca:');
     for i:=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 i:=1 to min do
     write('+');
     readln;
     end.

[ViktorR]

А каково задание?
Может быть надо вычислить квадрат наименьшего числа для каждого столбца?

Возможно, что поможет такая последовательность:
Сохранить min значение для каждого столбца в массиве из числа элементов, равных числу столбцов матрицы.
Затем в цикле просматриваем этот массив и для каждого элемента рисуем как в Вашем алгоритме.


Как-то так, ...