Определить номер первой по порядку цифры натурального числа N - Pascal

Формулировка задачи:

Определить номер первой по порядку цифры натурального числа N, представленного в семеричной системе счисления, имеющей наименьшее значение.

Решение задачи: «Определить номер первой по порядку цифры натурального числа N»

Листинг программы

program min2;
var
  s:string;
  min:char;
  i,imin:integer;
begin
  readln(s); // добавить проверку на вхождение в интервал 0..7
  imin:=1;
  min:=s[1];
  for i:=1 to length(s) do
    if s[i]<min then
      begin
        min:=s[i];
        imin:=i;
      end;
  writeln('Min: ',min,' at position: ',imin);
  readln;
end.

Объяснение кода листинга программы

Этот код написан на языке Pascal и выполняет следующую задачу: определяет первую цифру натурального числа N. Вот список действий, представленных в виде комментариев:

Чтение строки от пользователя.
Проверка, что введенное значение находится в диапазоне от 0 до 7. Это необходимо для корректной работы программы.
Инициализация переменных s, min и imin.
Получение первой цифры числа N и сохранение ее в переменной min.
Запуск цикла for, который выполняется столько раз, сколько символов в строке s.
Внутри цикла проверяется, является ли текущий символ меньше, чем min. Если да, то min обновляется, а значение переменной imin обновляется на текущее значение i.
После завершения цикла выводится сообщение с найденной первой цифрой и ее позицией в числе N.
Программа завершается после чтения пользовательского ввода.