Поменять последний элемент массива, кратный своему порядковому номеру с первым элементом

var a:array of integer;
    n,i,ip,x:integer;
begin
randomize;
write('Размер массива n=');
readln(n);
setlength(a,n);
writeln('Исходный массив');
for i:=0 to n-1 do
 begin
  a[i]:=1+random(100);
  write(a[i]:4);
 end;
writeln;
ip:=0;
i:=n-1;
while(i>0)and(ip=0) do
if a[i] mod (i+1)=0 then ip:=i
else dec(i);
writeln('Последний элемен, кратный своему номеру=',a[ip],' его номер=',ip+1);
if ip=0 then write('Он первый, обмена нет')
else
 begin
  writeln('Обмен этого элемента с первым');
  x:=a[ip];
  a[ip]:=a[0];
  a[0]:=x;
  for i:=0 to n-1 do
  write(a[i]:4);
 end
end.

{$reference System.Core.dll}
uses System, System.Linq, System.Collections.Generic, Arrays;
type
  pair = KeyValuePair<integer, integer>;
var 
  a : array of integer;
  rnd : Random := new Random;
  ix : integer;
 
begin
  a := Enumerable.Range(1, 40).Select((i : integer) -> rnd.Next(100)).ToArray();
  a.Writeln;
  
  ix := a.Select((v : integer, i : integer) -> new pair(v, i + 1)).
    Where((p : pair) -> p.Key mod p.Value = 0).LastOrDefault().Value;
    
  writeln('Обмениваем первый элемент с ', ix, '-ым');
  if(ix > 0) then Swap(a[ix - 1], a[0]);
  a.Writeln;
end.