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

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.

// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin   var a: =readarrinteger('введите 20 элементов массив а'+newline,20);   write('a: '); a.println;   var b: =a.where((v,i)-> i.isodd).toarray; write('b: '); b.println;   var c: =a.where((v,i)-> i.iseven).toarray; write('c: '); c.println end. пример введите 20 элементов массив а   -49 11 -39 15 43 -9 30 25 9 25 42 -39 -26 1 -49 -43 33 -46 -1 -24 a: -49 11 -39 15 43 -9 30 25 9 25 42 -39 -26 1 -49 -43 33 -46 -1 -24 b: 11 15 -9 25 25 -39 1 -43 -46 -24 c: -49 -39 43 30 9 42 -26 -49 33 -1

Program pr; var a, b, c: array [1..20] of integer;       i, c1, c2: integer; begin   for i: =1 to 20 do read(a[i]);   for i: =1 to 20 do       if i mod 2 = 0 then begin           b[c1]: =a[i];           inc(c1);       end       else begin           c[c2]: =a[i];           inc(c2);       end;   for i: =1 to 20 do write(b[i], ' ');   for i: =1 to 20 do write(c[i], ' '); end;