Если первая буква гласная, то удалить её и вывести полученное, а если согласная, то просто вывести.
Var num : integer;
....
num := arr[0];
for i:=0 to n-1 do arr[i] := arr[i+1];
arr[n] := num;
Каждый раз делишь на два и записываешь остаток, потом записываешь наоборот.
123/2 - остаток 1
61/2 - остаток 1
30/2 - остаток 0
15/2 - остаток 1
7/2 - остаток 1
3/2- остаток 1
под конец всегда нужно добавлять единицу
123 = 1111011
67/2 - остаток 1
33/2 - остаток 1
16/2 - остаток 0
8/2 - остаток 0
4/2 - остаток 0
2/2 - остаток 0
и под конец всегда нужно добавлять единицу
67=1000011