двумерный массив

Здравствуйте! Помогите с задачкой, посмотрите пожалуйста где тут ошибка, а то он что-то не запускается?!
Вставить после столбцов, содержащих минимальное значение второй столбец.

Program pr1;
const n=3; m=4;
var a,b:array[1..n,1..m] of integer;
i,j,imin,jmin:integer;
min:integer;
begin
randomize;
for i:=1 to n do begin
for j:=1 to m do
a[i,j]:=random(30);
end;
for i:=1 to n do begin
for j:=1 to m do
write (a[i,j], ' ');
writeln;
end;
for j:=1 to m do begin
min:=a[i,1]; jmin:=j;
writeln;
end;
for i:=1 to n do begin
if a[i,j]>min then min:=a[i,j];
imin:=i; b[i,j]:=jmin;
min:=j;
writeln;
end;
for i:=1 to n do
if a[i,j]:=min then imin:=j;
writeln;for i:=1 to n do a[i,2];
a[i,j+1]:=a[i,j];
end;
for i:=1 to n do begin
for j:=1 to m do
write (a[i,j], ' ');
writeln;
end;
readln;
end.

0