Найти ошибку. Вставить новый столбец перед всеми столбцами, в которых встречается заданное число

program mas;
const n=3;
mmax=20; //кол. столбцов нельзя констанетой, оно будет меняться
type dmas = array [1..n, 1..mmax] of integer;
     amas = array [1..n] of integer;
procedure init(var z:dmas;m:byte);//m-параметр
var i,j:byte;
begin
  for i:=1 to n do
  for j:=1 to m do
  z[i,j]:= -5 + random (16);
end;
procedure print(z:dmas;m:byte);
var i,j:byte;
begin
  for i:=1 to n do
   begin
    for j:=1 to m do
    write(z[i,j]:4);
    writeln;
   end;
  writeln;
end;
Procedure Insert(Var z:dmas;k1:byte;x:amas;var m:byte);
//добавим параметы что вставлять и кол. столбцов на выходе
Var i,j:byte;
Begin
m:=m+1;
for j:=m downto k1 +1 do
for i:=1 to n do
z[i,j]:=z[i,j-1];
for i:=1 to n do
z[i,k1]:=x[i];
End;
var a:dmas;
    x:amas;
    m,i,j,k,c:byte;
begin
write('c = ');  readln(c);
randomize;
repeat
write('Введите количество столбцов до ',mmax div 2,' m=');
readln(m);
until m in [1..mmax div 2];
init(a,m);
writeln('Исхoдная матрица:');
print(a,m);
for i:=1 to n do //запомним второй столбец
x[i]:=a[i,2];
j:=1;
while j<=m do
 begin
  k:=0;
  for i:=1 to n do
  if a[i,j]<>c then k:=k+1;
  if k=0 then
   begin
    insert(a,j,x,m);
    j:=j+2;
   end
  else j:=j+1;
 end;
writeln('Вставки столбцов:');
print(a,m);
end.