Даны два натуральных числа.Определить в каком числе первая цифра больше?
написать программу

var n, k:integer;

begin
     writeln('Введите 2 числа через пробел');
     readln(n, k);
    
     if (strToInt(intToStr(n)[1]) > strToInt(intToStr(k)[1])) then writeln('У первого числа первая цифра больше');
     if (strToInt(intToStr(n)[1]) < strToInt(intToStr(k)[1])) then writeln('У воторого числа первая цифра больше');
     if (strToInt(intToStr(n)[1]) = strToInt(intToStr(k)[1])) then writeln('У первого числа и воторого числа первые цифры равны');
end.

спасибо

А через цикл while возможно?

В этой программе циклов вообще нет