Сравнение вещественных чисел, Сравнение вещественных чисел с задаваемой точностью Опции

[Emptiness]

Бьена Джёрната! Нужно написать программу которая будет сравнивать массив вещественных чисел с эталоном(который вводится с клавиатуры) с задаваемой точностью(которая также вводится с клавиатуры).

const N=30;
var
a:array[1..N] of real;
x:real;
z,i:integer;
Begin
readln(x);
for i:=1 to N do
Begin
readln(a[i]);
if a[i]=x then
z:=z+1
end;
write(z);
end.

Подскажите алгоритм, который сможет сравнить числа с точностью которую задаст юзер.

[-TarasBer-]

if abs(x-y)<eps then...

[Emptiness]

thx