Элемент массива, наиболее отличающийся от первого. - Turbo Pascal

const n=5;
var
  a: array [1..n] of Integer;
  i, j: Integer;
begin
  Write('Элементы массива (',n,'): ');
  for i:=1 to n do Read(a[i]); ReadLn;
  Write('A ='); for i:=1 to n do Write(' ',a[i]); WriteLn;
  j:=2; for i:=3 to n do if Abs(a[1]-a[j])<Abs(a[1]-a[i]) then j:=i;
  WriteLn('Наиболее отличается от 1-го ',j,'-й: ',a[j]);
end.