AYUDa necesito hacer unn programa

tengo un codigo de insercion directa ...tengo que ¡hacerlo andar en el compilador zainjal o visual c+++ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

TYPE tarray:Array[0..n] OF INTEGER

PROCEDURE Inserción_Directa(Var a:tarray)
Var i,j

FOR i:= 2 TO n DO
a[0]:= a[i];
j:=I;
WHILE a[0]<a[j-1] DO
a[j]:=a[j-1];
DEC(j);
END
a[j]:=a[0]
END
END
[b][i]