Создать упорядоченный массив и вывести его на экран 3,9,27,.(не используя возведение в степень). Выполнить бинарны

program Project1;
const
  maxelem = 18;
type
  Tarr = array[1..maxelem] of integer;
 
 
function search(var c: Tarr; nn: integer; elem: integer): byte;
// Функция бинарного поиска. Возвращает индекс найденного элемента.
var
  m,i,j: integer;
begin
  m:= nn div 2;
  i:= 1;
  j:= nn;
  while (c[m] <> elem) and (i <= j) do
    begin
      if elem > c[m] then
          i := m + 1
      else
          j := m - 1;
      m := (i+j) div 2;
    end;
    if i > j then
        search := 0
    else
        search := m;
end;
 
var
  a: Tarr;  // Переменная для хранения массива.
  i: byte;  // Вспомогательная переменная для организации цикла.
  e: integer; // Переменная для хранения значения искомого числа.
  n: integer;  // Переменная для хранения значения количества элементов массива.
begin
  randomize;
  write('Введите количество элементов в массиве: ');
  Readln(n);
  a[1]:= 3;
  for i:= 2 to n do   // Заполнение массива последовательностью из чисел в 3 степени.
    a[i]:= a[i-1]*3;
  for i:= 1 to n do   // Вывод массива в консоль.
    write(a[i],' ');
  writeln;
  write('Введите число: ');
  readln(e);            // Ввод в компьютер значения искомого числа.
  i:= search(a,n,e);    // Получение индекса искомого числа.
  if i = 0 then
    writeln('Такого числа в массиве нет.')
  else
    writeln('Число ', e, ' находится на ', i, '-м месте.');
  readln;
end.

type mas =array[1..15] of integer;
Procedure massiv(var m:mas;var n:integer);
var i:integer;
begin
repeat
write('Введите размер массива от 2 до  15 n=');
readln(n);
until n in [2..15];
writeln('Массив:');
m[1]:=3;
write(m[1],' ');
for i:=2 to n do
 begin
  m[i]:=m[i-1]*3;
  write(m[i],' ');
 end;
writeln
end;
//рекурсивная функция бинарного поиска
function bin(m:mas;left,right,x:integer):integer;
//left-индекс левого элемента, right-индекс правого элемента, х-индекс искомого элемента
var c:integer;
begin
if left>right then
 begin
  bin:=0;
  exit;
 end;
c:=(left+right) div 2;
if m[c]=x then bin:=c
else if m[c]>x then bin:=bin(m,left,c-1,x)
else bin:=bin(m,c+1,right,x);
end;
var a:mas;
    n,x:integer;
    i:integer;
begin
massiv(a,n);
writeln('что искать?');
readln(x);
if bin(a,1,n,x)=0 then write('Числа ',x,' в массиве нет')
else write('Число ',x,' в массиве есть, его номер=', bin(a,1,n,x))
end.