Найти порядковый номер того из элементов последовательности, который наиболее близок к заданному целому числу(одного элемента) — Pascal(Паскаль)

uses crt;
var z,n,i,a,p,min:integer;
begin
clrscr;
write('Введите число для поиска z=');
readln(z);
write('Pазмер последовательности n=');
readln(n);
writeln('Введите элементы последовательности');
write('a[1]=');
readln(a);
min:=abs(a-z);
p:=1;
for i:=2 to n do
 begin
  write('a[',i,']=');
  readln(a);
  if abs(a-z)<min then
   begin
    min:=abs(a-z);
    p:=i;
   end;
 end;
writeln;
write('Наиболее близок к ',z,' элемент № ',p);
readln
end.