Определить есть ли в массиве Z из 10 значений заданное число Х, и если нет, то найти ближайшие к нему

program sam42;
const
  n = 10;
var
  a: array [1..n] of integer;
  x, i, p: integer;
begin
  writeln('Введите число ,которое будем искать в массиве');
  readln(p);
  writeln('заполните ', n, ' элементов массива');
  For i:=1 to n do
      readln (a[i]); 
  for i := 1 to n do 
  begin
     if a[i] = p then  
     begin 
     x := i;
     writeln('Число найдено, его порядковый номер = ', x); break;end;
     for i:=1 to n do
     begin 
           m:=p+1; p:=z; z:=m; k:=i;
           n:=p-1; p:=g; g:=n; l:=i;
             if m=n then
             writeln('ближайшие числа =', k, l)
             else
             if a[i]=m then 
             writeln ('ближайшее число =' ,k);
             if a[i]=n then
           writeln ('ближайшее число =' ,l);
end;
end;
end.

const
  N = 10;
var
  A : array[1..N] of Integer;
  F, i, d : Integer;
begin
  WriteLn('Заполнение массива A[', N, '] :');
  for i := 1 to N do
    begin
      Write('A[', i, '] = '); ReadLn(A[i]);
    end;
  Write('Число для поиска = '); ReadLn(F);
  d := 1;
  for i := 2 to N do
    if Abs(A[d] - F) > Abs(A[i] - F) then
      d := i;
  if A[d] = F then
    Write('Найдено первое число равное заданному:')
  else
    Write('Ближайшее к заданному числу:');
  WriteLn(' A[', d, '] = ', A[d]);
end.

for i:=1 to n do
  if a[i]=a[d] then Write('a[',i,']=',a[i]);
WriteLn;