Найти минимальную цифру этого числа и возвести введённое число в степень, равную минимальной цифре

var
  n : word;
  s : real;
  
{Функция выдает наименьшую цифру числа number}
function getMinDigit(number : word) : byte;
var
  z, min, temp : word;
begin
  temp := number;
  min := 10;
  while temp <> 0 do
  begin
    z := temp mod 10;
    if z <= min then min := z;
    temp := temp div 10
  end;
  getMinDigit := min
end; 
 
{сама программа}
begin
  write('введите число: ');
  readln(n);
  s := exp(getMinDigit(n) * ln(n)); 
  writeln('минимальная цифра в числе ', n, ' = ', getMinDigit(n));
  writeln(n, ' в степени ', getMinDigit(n), ' = ', s:5:0)  
end.

var
  n, min: word;
  s: real;
 
{Функция выдает наименьшую цифру числа number}
function getMinDigit(number: word): byte;
var
  z, min, temp: word;
begin
  temp := number; //запоминаем число number
  min := 10; //начальное значение минимальной цифры
  while temp <> 0 do
  begin
    z := temp mod 10; //находим цифру числа
    if z <= min then min := z; //находим новое значение минимальной цифры min
    temp := temp div 10 //удаляем последнюю цифру числа
  end;
  getMinDigit := min
end;
 
{сама программа}
begin
  write('введите число: ');
  readln(n);
  min := getMinDigit(n); //вызываем функцию вычисления минимальной цифры числа n
  s := exp(min * ln(n)); //возводим число n в степень min (минимальная цифра)
  writeln('минимальная цифра в числе ', n, ' = ', min);
  writeln(n, ' в степени ', min, ' = ', round(s)) //выводим степень, округленную до ближайшего целого
end.