Дан массив.Упорядоченный по возрастанию и число b неравное ни одному из этих

Var a:array[1..10] of integer;
i,b,ind,el,min:integer;
begin
min:=1000000;
for i:=1 to 10 do
read(a[i]);
readln;
read(b);
for i:=1 to 10 do begin
if абс(a[i]-b)lt;min then begin
min:=абс(a[i]-b);
el:=a[i];
ind:=i;
end;
end;
write(el,' ',ind);   //Выводит элемент, а потом его индекс.
end.