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

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.