В массиве трижды произвести циклический сдвиг вправо всех элементов, следующих за минимальным из чётных

{Ввести одномерный целочисленный массив , вывести его. В массиве трижды
произвести циклический сдвиг вправо всех элементов следующих за минимальным
из чётных}
const
  n=20;
var
  a:array[1..n] of integer;
  x,j,k,imin,i,min:integer;
begin
  for i:=1 to n do
    begin
      a[i]:=random(n);
      write(a[i]:4);
    end;
  writeln;
  imin:=1;
  for i:=1 to n do
    begin
      if (not odd(a[i])) and (a[imin]>a[i]) then
        imin:=i;
    end;
  writeln('Минимум: ',a[imin],', в позиции: ',imin);
  k:=3;
  for i:=1 to k do
    begin
      x:=a[n];
      for j:=n downto imin+1 do
        a[j]:=a[j-1];
      a[imin+1]:=x;
    end;
  writeln('Сдвиг на ',k,' позиции вправо:');
  for i:=1 to n do
    write(a[i]:4);
  readln;
end.

begin
  var N := ReadLnInteger('Размер массива: N =');
  var A : array of Integer; SetLength(A, N);
  for var i := 1 to N do
    A[i-1] := ReadLnInteger('A[' + i.ToString + '] =');
  WriteLn('Введён маcсив A:', NewLine, A);
  
  var minNotOdd := -1;
  for var i := 0 to N-1 do
    if Not Odd(A[i]) then
      if minNotOdd = -1 then
        minNotOdd := i
      else if A[minNotOdd] > A[i] then
        minNotOdd := i;
        
  if minNotOdd < 0 then
    begin
      WriteLn('В массиве нет чётных элементов!');
      Halt;
    end
  else if minNotOdd = N-1 then
    begin
      WriteLn('Минимальный чётный элемент массива - последний!');
      Halt;
    end;
        
        
  for var cicle := 1 to 3 do
    begin
      var t := A[N-1];
      for var i := N-1 downto minNotOdd+1 do A[i] := A[i-1];
      A[minNotOdd+1] := t;
    end;
    
  WriteLn('Полученный в результате тройного циклического сдвига за минимальным из чётных массив:', NewLine, A);
end.