Первая цифра меньше ли второй?

 
var
n:integer;
begin
writeln('введите число');
readln(n);
if (n/10) > (n mod 10) then
writeln('нет 1>2')
else
writeln('да 1<2');
readln;

program tmp;
uses crt;
var a:integer;
 
function sravnenie(x:integer):boolean;
var st:string;
begin
str(x,st);
sravnenie:=true;
if ord(st[1])<ord(st[2]) then sravnenie:=false;
end;
 
begin
clrscr;
repeat
write('vvedite chislo: ');readln(a);
until a>9;
if sravnenie(a) then writeln ('pervaya cifra bolshe vtoroi')
                     else writeln('vtoraya cifra bolshe pervoi');
readkey;
end.

uses crt;
var n:longint;
    k1,k2:byte;
begin
clrscr;
write('n=');readln(n);
n:=abs(n);
if n<10 then write('В числе нет двух цифр!')
else if n in [10..99] then
 begin
  k2:=n mod 10;
  k1:=n div 10;
  if k1<k2 then write('Верно')
  else write('Не верно');
 end
else
 begin
  while n>99 do
  n:=n div 10;
  k2:=n mod 10;
  k1:=n div 10;
  if k1<k2 then write('Верно')
  else write('Не верно');
 end;
readln
end.