Sorozatból a számhoz legközelebb álló elem kiválasztása, hogyan?

Ez nem tűnik nehéznek, én így csinálnám:

Felvennék egy változót, mely annak az elemnek az index-ét tartalmazza, amelyik a legközelebb áll hozzá (alapesetben az 1.-re állítanám be, neve legyen kozel) majd egy for ciklussal végigmennék az elemeken, ezen belül egy feltételt helyeznék el, mely kb ez lenne:

if abs(X[i]-m)<abs(X[kozel]-m) then

kozel:=i;

X a tömb.

A keresett elem pedig az X[i].