Составление и отладка программы с массивами Опции

[Slash]

Собсно ещё одна програмка которую я не могу сделать !

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

Надеюсь на вашу помощь

[Slash]

uses crt;
const n=10;
var m:array [1..n] of real;
    i:integer;
    r,blizhn,daln:real;
begin
 randomize;
 clrscr;
 write ('Enter real type number [0..1]: ');
 readln ®;
 for i:=1 to n do
  begin
   m[i]:=random;
   writeln (m[i]4);
  end;
 blizhn:=m[1];
 daln:=m[1];
 for i:=2 to n do
  begin
   if abs(m[i]-r)<abs(blizhn-r) then blizhn:=m[i];
   if abs(m[i]-r)>abs(daln-r) then daln:=m[i];
  end;
 writeln ('r: ',r:1:4,'  ','blizhn: ',blizhn:1:4,'  ','daln: ',daln:1:4);
 readkey;
end.