По запросу вводится натуральное число, программа находит все цифры 2 и 7 в этом числе, после этого на экране пишется 2 или 7 в зависимости от того какая из этих цифр находится левее другой цифры в этом числе

readln(n);

  left_digit := 0;

  while (n > 0) do begin
    case n mod 10 of
      2, 7: left_digit := n mod 10;
    end;
    n := n div 10;
  end;

  if left_digit = 0 then writeln('no')
   else writeln(left_digit);