C/Visual C - ayuda extra urgente

Espero me puedan ayudar el codigo esta en pascal pero ni modo, este programa tiene ke insertar secuencialmente e interposicionalmente ademas solo debe de aceptar letras, lo primero y lo tercero ya lo tengo solo me falta lo de interposicionalmente espero alguien me pueda ayudar, aki esta el codigo.
program insercion;
uses crt;
var arreglo:array[1..10]of string;
c,opc:integer;

procedure nulo;
var c:integer;
begin
for c:=0 to 10 do
arreglo[c]:='';
end;

procedure uno;
begin
clrscr;
repeat
writeln('Introduce dato');
readln(arreglo[c]);
until ((arreglo[c]>='A') and (arreglo[c]<='Z'))or((arreglo[c]>='a')and(arreglo[c]<='z'));
c:=c+1;
end;

procedure dos;
var a, i:integer;
d:char;
begin
clrscr;
i:=0;
repeat
writeln('Posicion del dato');
read(i);
if i>c then
writeln('Error posicion no valida');
until (i>c) and (i<=c);
a:=c;
while a>i do
begin
arreglo[i]:=arreglo[i-1];
a:=a-1;
end;
repeat
writeln('Introduce un dato');
read(d);
if ((arreglo[c]>='A') and (arreglo[c]<='Z'))or((arreglo[c]>='a')and(arreglo[c]<='z'))then
writeln('Error dato no valido');
until ((arreglo[c]>='A') and (arreglo[c]<='Z'))or((arreglo[c]>='a')and(arreglo[c]<='z'));
c:=c+1;
end;
%

ya lo termine, ya detecte ke estaba mal, muchas gracias de todos modos a los ke tenian intencion de ayudarme, si alguien puede borrar este mensaje completo adelante no hay problem luego subire el codigo.