Дано число k и матрица размера 4 x 9. После столбца матрицы с номером k вставить столбец из нулей — Pascal(Паскаль)

 var a:array[1..4,1..9]of integer;
    i,j,n,k:integer;
procedure addzero(k:integer);
begin
for i:=1 to 4 do
a[i,k+1]:=0;
end;
begin
for i:=1 to 4 do
for j:=1 to 9 do
read(a[i,j]);
writeln('Введите № столбца');
readln(n);
addzero(n);
writeln('Результат');
for i:=1 to 4 do
begin
     for j:=1 to 9 do
     write(a[i,j]:3);
     writeln;
end;
end.