После столбца матрицы с номером k вставить столбец из нулей

Program laba8;
var k:integer;
procedure asd(var i,j:byte);
begin
a:array [4..9] of byte;
for i:=1 to 4 do
begin
for j:=1 to 9 do
begin
writeln('Введите ',i,',',j,'-й элемент матрицы: ');
readln(a[i,j]);
end;
end;
procedure agd(var i,j:byte);
for i:=1 to 4 do
begin
for j:=1 to 9 do write(a[i,j]:3);
writeln
end;
procedure adf(var i,j:byte);
for i:=1 to 4 do
begin
for j:=1 to 9 do
if k=j then a[j]=0;
end;
begin
for i:=1 to 4 do
begin
for j:=1 to 9 do write(a[i,j]:3);
writeln
end;
readln;
asd(i,j);
agd(i,j);
adf(i,j);
end.

Program tk8;
var i,j,k:integer;
a:array [1..4,1..10] of integer;
procedure matr;
var i,j,k:integer;
begin
for i:=1 to 4 do begin
for j:=k+1 to 9 do
end;
j:=k+1;
for i:=1 to 4 do begin
a[i,j]:=0;
end;
for i:=1 to 4 do begin
writeln;
for j:=1 to 9 do
write(a[i,j]:3);
end;
begin
for i:=1 to 4 do
begin
for j:=1 to 9 do
begin
writeln('Введите ',i,',',j,'-й элемент матрицы: ');
readln(a[i,j]);
end;
end;
writeln('ВВедите номер столбца:');
read(k);
for i:=1 to 4 do begin
for j:=k+1 to 9 do
end;
j:=k+1;
for i:=1 to 4 do begin
a[i,j]:=0;
end;
for i:=1 to 4 do begin
writeln;
for j:=1 to 10 do
write(a[i,j]:3);
end; end; end;
readln;
begin
matr;
end.