поиск порядкового номера в pascale

[счастливая]

Дана последовательность целых чисел. Опишите на языке программирования алгоритм поиска порядкового номера того из элементов последовательности, который наиболее близок к заданному целому числу (предполагается, что такой элемент единственный).

[Harrr]

uses crt;
var
a: array[1..100] of real;
i, n, x, min, y: integer;
begin
writeln('vvedite kolichestvo chlenov massiva n');
readln(n);
writeln('vvedite chislo');
readln(x);
{chislo dlya sravnenija}
for i:=1 to n do begin
writeln('a[',i,']= ');
readln(a[i]);
{vvod chlenov massiva}
min:=x;
if (abs(round(a[i])-x)<min) then begin
y:=i;
min:=abs(round(a[i])-x);
end;
end;
writeln('Nomer ', y);
end.