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

написать программу

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.