В простую переменную последовательно вводятся N положительных чисел. Определить минимальное значение и порядковый номер последнего числа, равного этому значению- Pascal(Паскаль)

uses crt;
procedure Min(n:integer);
var i,imn:integer;
    a,mn:integer;
begin
writeln('Введите ',n,' положительных чисел');
readln(mn);
imn:=1;
for i:=2 to n do
 begin
  repeat
   readln(a);
  until a>0;
  if a<=mn then
   begin
    mn:=a;
    imn:=i;
   end;
 end;
write('Минимальное=',mn,'  номер последнего минимального=',imn);
readln
end;
var n:integer;
begin
clrscr;
write('n=');
readln(n);
Min(n);
end.