В одномерный массив после каждого элемента, номер которого или значение которого кратно трём, вставить цифру 3

uses crt;
const nmax=100;
type mas=array[1..nmax] of integer;
function Kr3(a,i:integer):boolean;
begin
Kr3:=(a mod 3=0)or(i mod 3=0)
end;
procedure Vvod(var a:mas;var n:integer);
var i:integer;
begin
repeat
write('Введите размер исходного массива от 3 до ',nmax div 2,' n=');
readln(n);
until n in [3..nmax div 2];
for i:=1 to n do
a[i]:=10+random(20);
end;
procedure Vyvod(a:mas;n:integer);
var i:integer;
begin
for i:=1 to n do
write(a[i]:4);
writeln
end;
procedure Vstav(var a:mas;var n:integer);
var i,j:integer;
begin
i:=n;
while i>=1 do
if Kr3(a[i],i) then
 begin
  n:=n+1;
  for j:=n downto i+2 do
  a[j]:=a[j-1];
  a[i+1]:=3;
  i:=i-1
 end
else i:=i-1
end;
var a:mas;
    n:integer;
begin
clrscr;
randomize;
Vvod(a,n);
writeln('Исходный массив');
Vyvod(a,n);
Vstav(a,n);
writeln('Вставка в массив числа 3');
Vyvod(a,n);
readln
end.