Решите задачу паскаль Ввести целое число. Найти в нем малдашую и старшую цифру​ через repeat

Uses graphabc;
begin
  window.Init(0, 0, 600, 600, clwhite);
  window.IsFixedSize := true;
  pen.Width := 5;
  line(50, 50, 500, 50, clred);
  line(50, 50, 50, 500, clblue);
  line(500, 50, 500, 500, clgreen);
  line(50, 500, 500, 500, clyellow);
  SetFontSize(30);
  DrawTextCentered(50, 0, 500, 150, 'Имя');
  DrawTextCentered(50, 130, 500, 200, 'Фамилия');
  DrawTextCentered(50, 200, 500, 330, 'Отчество');
  DrawTextCentered(50, 330, 500, 400, 'Год рождения');    DrawTextCentered(50, 400, 500, 500, 'Группа');
end.

#include <iostream>

#include <string>

#include <algorithm>

bool P(int value)

{

   std::string left = std::to_string(value);

   std::reverse(left.begin(), left.end());

   std::string right = std::to_string(value);;

   return left == right;

}

int main()

{

   int n;

   std::cin >> n;

   int count = 0;

   for (int i = 1; i <= n; ++i)

   {

       if (P(i))

       {

           count++;

       }

   }

   std::cout << "Count palindrome: " << count << std::endl;

   return 0;

}