Рекуррентная функция для поиска заданного числа в упорядоченном массиве целых чисел

var
  a:array[1..50]of integer;
  i,n,k:integer;
begin
  write('Введите количество чисел: ');readln(n);
  for i:=1 to n do begin
    write('Введите ',i,'-е число: ');readln(a[i]);
  end;
  write('Какое число будем искать?: ');readln(k);
  for i:=1 to n do begin
    if a[i]=k then begin
      write(a[i],' ');
    end;
  end;
  readln();
end.

uses crt;
type mas =array[1..30] of integer;
Procedure vvod(var m:mas;var n:integer);
var i:integer;
Begin
repeat
write('Введите размер массива n>1 n=');
read(n);
until n>1;
writeln('Введите упорядоченный по возрастанию массив из',n,' элементов');
write('m[1]=');
read(m[1]);
for i:=2 to n do
 begin
  repeat
  write('m[',i,']=');
  read (m[i])
  until m[i]>m[i-1]
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(m[i],' ');
writeln
end;
Procedure poisk(m:mas;first,last,x:integer;var i:integer);
var c : integer;
begin
i:=0;
c:=(first + last) div 2;
if m[c]=x then i:=c
else if m[c]>x then poisk(m,first,c,x,i)
else poisk(m,last,c,x,i);
if i=0 then write('Числа ',x,' в массиве нет')
else write('Номер числа ',x,' в массиве=',i)
end;
var A:mas;
    n,x:integer;
    i:integer;
begin
clrscr;
vvod(a,n);
writeln('Введите число для поиска');
readln(x);
poisk(a,1,n,x,i);
end.