Вводится 2-х значное число определить сколько дестятков и едениц программа в паскале

Var
   A:byte;
Begin
Write('Введите двузначное число: ');ReadLn(A);
WriteLn('Количество десятков в нём: ',A div 10);
WriteLn('Количество единиц в нём: ',A mod 10);
End.

Итак...
Количество сравнений, это сколько раз твое число приравнивается к другим. Смотря на твою последовательность ты после сортировки массива сравниваешь число 2 со своим массивом. Приравниваешь его к первому числу это у тебя единица. Число один не совпадает с даным по условию числом, значит двигаемся дальше, и это уже будет другое сравнение. И так делаем пока не найдем число "2". Так как это число у тебя на втором месте, количество сравнений будет 2.
Если бы ты искал например число 4 количество сравнений было бы 5, так как число 4 стоит пятым в очереди.

//Microsoft (R) C/C++ Optimizing Compiler Version 19.00.23506 for x64

#include <iostream>
#include <fstream>
#include <string>
using namespace std;

int main()
{
    fstream f("F1.txt");
    size_t max_size;
    string s, max_word, word;
    while ( getline(f, s) ) {
        istringstream is(s);
        max_size = 0;
        while (is >> word) {
            if (max_size < word.size()) {
                max_size = word.size();
                max_word = word;
            } else if (max_size == word.size()) {
                max_word += " = ";
                max_word += word;
            }
        }
        cout << max_size << ' ' << max_word << endl;
    }
}

Пример:
asfasfafs sdf sdg xcz
zxcvxcv sdggsd
asdgsdg
sgdgsd sdagsdg
gsd sdg sdg
 sdggg sdg sh
ответ:
9 asfasfafs
7 zxcvxcv
7 asdgsdg
7 sdagsdg
3 gsd = sdg = sdg
5 sdggg