Помогите решить задачку по информатике! Пожалуйста!))

Question

Дано вещественное число R и массив размера N. Найти элемент массива, который наиболее близок к данному числу Сделать в Паскале простенькими операторами и командами Помогите!

Nariman · Accepted Answer

program z; 
var R,raz,razm :real; 
 i,ne:integer; 
 N:array[1..100] of real; 
begin 
readln(N); 
readln(R); 
for i:=1 to N do 
 read(N); 
razm:=abs(R-N[1]); ne:=1; 
for i:=2 to N do 
 begin 
 raz:=abs(R-N); 
 if raz