Чтобы определить вторую цифру - берешь остаток от деления на 10. Это и есть вторая цифра. Присваиваешь это значение переменной x2. Первая цифра - это из изначального двузначного числа отнять вторую цифру (x2) и разделить полученное значение на 10. (Либо просто использовать целочисленное деление 2значного числа на 10 и получить первую цифру). Результат присвоить переменной x1. А затем через условия сравнивать эти x1 и x2 и выводить результат.
label loop;
var
n:integer;
d:array[1..2]of integer;
i:integer;
begin
loop:
i:=1;
repeat
writeln('n = ');
readln(n);
until (n>9) and (n<100);
while n>0 do begin
d[i]:=n mod 10;
i:=i+1;
n:=n div 10;
end;
if d[1]=d[2] then
begin
writeln('Numbers equal');
goto loop;
end;
if d[1]>d[2] then
writeln('Number ' , d[1] , ' Bigger then number ' , d[2])
else
writeln('Number ' , d[2] , ' Bigger then number ' , d[1]);
goto loop;
end.