Максимальное значение и номер последнего минимального

{в одномерном целом массиве найти максимальное значение и номер последнего
минимального среди положительных элементов до элемента меньшего s }
const
  n=20;
var
  isn,imin,i,imn,min,max,s:integer;
  a:array [1..n] of integer;
begin
  randomize;
  max:=a[1];
  for i:=1 to n do
    begin
      a[i]:=random(n) - n div 2;
      write(a[i]:3);
    end;
 
  for i:=1 to n do
    if a[i]>max then
      max:=a[i];
 
  for i:=1 to n do
    if a[i]>0 then
      begin
        imn:=i;
        break;
      end;
  writeln;
  write('Enter s: '); readln(s);
  for i:=1 to n do
    if a[i]<s then
      begin
        isn:=i;
//        break; // не указано какое число, считаем, что последнее
// если первое , то break on
      end;
//  writeln(imn,' ',isn); //отладка
  min:=a[imn]; imin:=imn;
  for i:=imn to isn do
    begin
      if (a[i]>0) and (a[i]<=min) then
        begin
          a[i]:=min;
          imin:=i;
        end;
    end;
 
  writeln;
  writeln('Max: ',max);
  writeln('Min: ',min,', at position: ',imin);
  readln;
end.

if (a[i]>0) and (a[i]<=min) then
        begin
          a[i]:=min; // <-- здесь у меня ошибка min:=a[i]; должно быть
          imin:=i;
        end;

var
a:array[1..1000]of integer;
n,s,i,max,min,Nmin,f:integer;
begin
randomize;
readln(n);
readln(s);
for i:=1 to N do
begin
f:=0;
a[i]:=random(20)-5;
write(a[i],' ');
end;
max:=a[1];
min:=maxint;
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if (a[i]<s)then f:=1;
if(a[i]<=min)and(a[i]>0)and(f=0)then
begin
Nmin:=i;
min:=a[i];
end;
end;
writeln;
writeln('max:=',max,' Nmin=',Nmin);
end.