Рекурсия Найти номер последнего вхождения максимального значения в последовательность длины n

program ;
  const n=7;
  type t_arr=array[1..n] of integer;
 
  procedure read_arr( var a:t_arr);
    var i:integer;
    begin
      writeln('Введите последовательность');
      for i:=1 to n do
       read(a[i]);
    end;
 
  procedure iter(a:t_arr; var imin:word);
    var i:word;
    begin
      imin:=1;
      for i:=2 to n do
       if a[imin]>=a[i] then imin:=i;
    end;
 
  procedure rec(a:t_arr; i,imin:word);
  begin
    if i<n then
    begin
      inc(i);
      rec(a,i,imin);
      if a[i]<a[imin] then
      begin
        imin:=i;
      end;
    end
    else
      imin:=a[i];
  end;
 
  var a:t_arr;
      i,imin:word;
  begin
    read_arr(a);
    iter(a,imin);
    writeln('‚ Результат итеративной подпрограммы* ',imin);
    i:=0;
    rec(a,i,imin);
    writeln('Результат рекурсивной подпрограммы* ',imin);
  end.

const n=7;
var a:array[1..n] of integer;
    k,kmin:word;
procedure read_arr;
var i:integer;
begin
writeln('Введите последовательность');
for i:=1 to n do
readln(a[i]);
end;
 
procedure iter;
var i,imin:word;
begin
imin:=1;
for i:=2 to n do
if a[i]<=a[imin] then imin:=i;
writeln('Результат итеративной подпрограммы=',imin);
end;
 
procedure rec;
begin
if k<n then
 begin
  inc(k);
  rec;
  if a[k]<=a[kmin] then kmin:=k;
 end
else  kmin:=a[k];
end;
begin
 read_arr;
 iter;
 rec;
 writeln('Результат рекурсивной подпрограммы=',kmin);
end.

else
      imin:=a[i];

 if a[k]<a[kmin] then kmin:=k;