Написать функцию int Search ( double A[], int n , double x), которая находит в массиве double A[n] элемент, значение которого равно x

program z;
var i,n,x,k:integer;
a:array [1..10] of integer;
function search(a1:array [1..10] of integer; x1,n1:integer):integer;
     var k1,i,f:integer;
     begin
         writeln('Индексы элементов, равных ',x1,':');
         for i:=1 to n1 do
             if a1[i]=x1
                then
                    begin
                         f:=1;
                         k1:=i;
                         writeln(k1);
                    end;
         if f=0
            then
                writeln('Таких элементов нет!');
         search:=k1;
     end;
begin
     writeln('Введите кол-во элементов массива');
     readln(n);
     writeln('Ввод элементов массива');
     for i:=1 to n do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     writeln('Исходный массив');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     writeln('Введите число для проверки');
     readln(x);
     k:=search(a,x,n);
     writeln('Индекс последнего элемента, равного ',x,' - ',k);
end.

uses crt;
const nmax=100;
type mas=array[1..nmax] of real; //тип массива
function Search(a:mas;n:integer;x:real):integer;//функция
var i,k:integer;
begin
k:=-1;//пока нет
i:=1;
while(i<=n)and(k=-1) do//пока не конец массива и не нашли число
if a[i]=x then k:=i//если нашли, запомним номер
else i:=i+1;//иначе вперед
Search:=k;//значение функции
end;
var a:mas;
    n,i:integer;
    x:real;
begin
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите элементы массива:');
for i:=1 to n do
 begin
  write('a[',i,']='); //вводим элементы массива
  read(a[i]);
 end;
clrscr;//очистим от ввода
writeln('Исходный массив:');
for i:=1 to n do
write(a[i]:0:2,' '); //выводим на экран
writeln;
write('Введите элемент для поиска x=');
read(x);
write('Номер этого элемента в массиве=',Search(a,n,x));//вызываем функцию
end.