Задача на циклы Опции

[Grifon]

Срочно надо выполнить задание, кто может помогите!
Дано целое число N и 10 вещественных чисел. Найти порядковый номер того из них, которое наиболеее удаленно от целого числа N.

[мисс_граффити]

прошу прощения... глупость написала. (удалила уже)
каша в голове...
собиралась отвечать в одной теме, передумала, в другой на нее ответила

var N,nom,max_nom:integer;
tek_elem,max:real;
begin
{ввод N}
{max:=очень-очень маленькое число. чтобы заведомо нашлось такое, с которым модуль разности будет больше. то есть, раз работаем с модулями, любое отрицательное}
for nom:=1 to 10 do
  begin
  {ввод элемента}
  if abs(N-tek_elem)>max then
    begin
    {max:=модуль текущей разности}
    max_nom:=nom;
    end;
  end;
{вывод max_nom}
readln;
end.