Обработать одномерный массив с использование процедур и функций без параметров и с параметрами

Uses crt;
Const N=10;
Type Vec=array[1..N+1]Of Integer;
 
procedure Init(Var A:Vec);
var i:integer;
Begin
     randomize;
     For i:=1 To N Do a[i]:=random(99)+1;
End;{}
 
procedure vyvod(a:Vec; n:Integer);
var i:integer;
Begin
     For i:=1 To N do write(a[i]:3);
End;{}
 
procedure vstavka(Var a:Vec; k:Integer);
Var i,t,p:Integer;
Begin
     t:=a[k];
     a[k]:=0;
     For i:=k+1 To N+1 Do Begin
         p:=a[i];
         a[i]:=t;
         t:=p;
     End;
End;
 
Var i,k:Integer;
    a:Vec;
BEGIN
clrscr;
Init(a);
vyvod(a,n);
writeln;
Writeln('v kakoe mesto vstavit 0 ?');
readln(k);
vstavka(a,k);
vyvod(a,n+1);
Readln;
END.

Var A:array[1..100] of integer;
    i,n,t:integer;
Procedure P;
Var i,ik:byte;
Begin
    For i:=1 to n do 
     if (A[i] mod 2 = 0)and(ik=0) then ik:=i;
    if ik>0 then
    Begin
      inc(n);
      For i:=n downto ik do
       A[i]:=A[i-1];
      A[ik]:=0;
      t:=1;
    End;
End;
Begin
    write('Введите n: ');readln(n);
    writeln('Исходный');
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    writeln;
    P;
    if t=1 then
    Begin
      writeln('Преобразованный');
      For i:=1 to n do
       write(A[i]:4);
    End
    else writeln('Нету нечётных');
    readln;
End.