Написать программу реализующую алгоритм последовательного поиска целевого значения из выборки N чисел

function SeqSearch(item: DataArray; count:integer;
                              key:DataItem):integer;
     var
       t:integer;
     begin
       t:=1;
       while (key<>item[t]) and (t<=count) t:=t+1;
       if t>count then SeqSearch:=0
       else SeqSearch:=t;
     end; { конец последовательного поиска }

 
 
function FoundByBinarySearch
(
LowIdx,
HighIdx : LongInt;
var   Result  : LongInt;
const GoalIs  : CompareFunc;
var   Data;
var   Goal
) : Boolean;
var
CompVal : CompareResults;
begin
FoundByBinarySearch := FALSE;
 
if HighIdx < LowIdx then
Exit;
 
Result := LowIdx + ((HighIdx-LowIdx) div 2);
CompVal := GoalIs(Result, Data, Goal);
 
if CompVal = BinEqual then
FoundByBinarySearch := TRUE
else if (LowIdx < HighIdx) then
begin
if CompVal = BinLess then
HighIdx := Result-1
else {CompVal = BinGreater}
LowIdx  := Result+1;
FoundByBinarySearch := FoundByBinarySearch(
LowIdx, HighIdx, Result, GoalIs, Data, Goal)
end
else if (CompVal = BinLess) then
Dec(Result)
end; { function FoundByBinarySearch }

     function BSearch (item: DataArray; count:integer;
                             key:DataItem):integer;
     var
       low, high, mid: integer;
       found:boolean;
     begin
       low:=1; high:=count;
       found:=false;         { не найден }
       while (low<=high) and (not found) do
       begin
         mid:=(low+high) div 2;
         if key<item[mid] then high:=mid-1
         else if key>item[mid] then low:=mid+1
         else found:=true;  { найден }
       end;
       if found then BSearch:=mid
       else BSearch:=0;  { не найден }
     end; { конец поиска }

program poisk;
const n=5;
  var
  i:integer;
  la:array[0..n] of integer;
begin
Randomize;
for i:=0 to n do begin
la[i]:=Random(10);
Write(la[i]:3);
end;
Writeln;
i:=0;
for  i:=0  to n  do
  if la[i]=n then Writeln(' 4islo n:= ', n, ' stoit na ', i+1, ' meste v massive');
Writeln(' end');
Readln;
end.

var
a:array[1..9] of integer;
g:integer;
j:integer;
begin
g:=4;   {ищем g в массиве}
 j:=0;
while a[j]=g do j:=j+1
writeln (j);
readln;
end.

k:=0;
for i:=1 to n do
if a[i]=g then k:=1;
if k=0 then('нет')
else write('есть');

program op;
const n=10; //длинна массива
      g=9; //искомое число
var 
  i:integer;
  a : array[0..n] of integer;
  k:boolean;
begin
k:=false;//предполагаем что искомого числа в массиве нет
for i:=0 to n do
if a[i]=g then k:=true;
writeln(k); //если К=true, то искомое число есть в массиве
end.