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

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

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.