какая из цифр находится в числе правее?

uses crt;
var a,b,c: string; i,k,l: byte;
begin
k:=0;
l:=0;
clrscr;
write('Введите число: ');
readln(a);
write('Введите 1-ю цифру:');
readln(b);
write('Введите 2-ю цифру: ');
readln(c);
i:=0;
while i<>length(a) do
begin
inc(i);
if a[i]=b then k:=i;
if a[i]=c then l:=i;
end.
if (l>0) and (k>0) and (k>l) then write('правее находится цифра ',b)
else if (k<l) and (k>0) then write('правее находится цифра ',c)
else write('данное число не содержит одно или оба числа');
end.

uses crt;
var n:longint;
    a,b,k,i,ia,ib:byte;
begin
clrscr;
write('n=');readln(n);
repeat
writeln('Введите 2 разных цифры:');
readln(a,b);
until(a in [0..9])and(b in [0..9])and(a<>b);
i:=0;ia:=0;ib:=0;
while n>0 do
 begin
  k:=n mod 10;
  i:=i+1;
  if k=a then ia:=i;
  if k=b then ib:=i;
  n:=n div 10;
 end;
if ia=0 then write('цифры ',a,' нет')
else if ib=0 then write('цифры ',a,' нет')
else
 begin
  if ia<ib then write('цифра ',a,' правее')
  else write('цифра ',b,' правее');
 end;
readln
end.

repeat //убрать
writeln('Введите 2 разных цифры:');
readln(a,b);
until(a in [0..9])and(b in [0..9])and(a<>b);//убрать
но правильный ввод программа отслеживать не будет, можете ввести 2 "цифры" по 25.