Дано натуральное число n . Определить самую маленькую цифру в его записи и ее позицию

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,min,imin:integer;
begin
for i:=1 to n do
readln(a[i]);
writeln;
begin
    min:=a[10];
    imin:=10;
if a[i]<min then
      begin
        min:=a[i];{находим мин}
        imin:=i;{его номер}
        writeln('min=', min);
        writeln('imin=', imin);
        end;
        end;
      end.

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,min,imin:integer;
begin
for i:=1 to n do
readln(a[i]);
writeln;
    min:=a[10];
    imin:=10;
For I:=9 downto 1 do
begin
if a[i]<min then
      begin
        min:=a[i];{находим мин}
        imin:=i;{его номер}
        end;
end;        
        writeln('min=', min);
        writeln('imin=', imin);
 
      end.

program minc;
uses crt;
var n:longint;
     min,k,min_p:integer;
 
begin
 clrscr;
 readln(n);
 k:=0;     {сброс счётчиков}
 min:=10; {минимальная цифра}
 min_p:=0; {и её положение} 
 
 repeat
  inc(k); {номер цифры с КОНЦА}
  if (n mod 10)<min then {если последняя цифра меньше мин.}
  begin
   min:=n mod 10; {присвоение нового минимума}
   min_p:=k;    {новое положение минимума}
  end;
  n:=n div 10; {"отсечение последней цифры" к примеру, если у нас было 112234, будем проверять сначала 4, затем 3 у 11223, 2 у 1122, и т.д.}
 until n=0;
 
 min_p:=k-min_p+1; {перевод с положения с конца к положению с начала, где k-количество цифр}
 
 writeln('Минимальная цифра ',min,' на позиции ',min_p); 
 readln;
end.