Срочно надо выполнить задание, кто может помогите!
Дано целое число 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.