Дано натуральное число. Найти минимальную цифру и приписать её в начало и в конец числа

Вот два варианта решения:1)В первом варианте программа выдает неверный ответ, если в числе есть хотя бы один ноль.var   a, n, i, min, tmp, m: integer;  begin   m := 1;   read(a);   tmp := a;   n := 0;   min := 10;   while tmp > 0 do    begin     n := n + 1;     if(tmp mod 10 < min) then min := tmp mod 10;     tmp := tmp div 10;   end;   for i := 1 to n do     m := m * 10;   a := a + (min * m);   a := a * 10;   a := a + min;   write(a); end.2)Второй вариант с использованием строки:var   s: string;   i, min: integer;  begin   readln(s);   min := 10;   for i := 1 to length(s) do     if(strtoint(s[i]) < min) then min := strtoint(s[i]);   s := s + inttostr(min);   s := inttostr(min) + s;   writeln(s); end.