Определить, сколько в данном числе цифр A, и является ли цифра A первым числом и цифра B - последним (repeat/until)

program  cikl_3;
uses crt;
var  cifra,n,a,b,ai,bi:integer;
begin
writeln('введите число');
readln(n);
writeln('введите числа для проверки');
readln(a,b);
repeat
begin
ai:=0;
bi:=0;
cifra:=n mod 10;
if a=cifra then ai:=ai+1;
n:=n div 10;
end;
until n>0;
if b=cifra then bi:=bi+1;
writeln(ai,cifra,bi);
readln;
end.

uses crt;
var n,a,b,kol:integer;
begin
write('Введите число: ');
readln(n);
repeat
 write('а,б: ');
 readln(a,b);
until (a in [0..9]) and (b in [0..9]);
kol:=0;
if n mod 10=b then writeln('Цифра b последняя цифра числа')
else writeln('Цифра b не последняя цифра числа,или в числе вообще нет цифры b');
repeat
n:=n div 10;
if n mod 10=a then inc(kol);
until n<=9;
if a=n then writeln('Первая цифра числа:=',a,' и в числе-',kol,' цифр(a) а')
else if (n<>a) and (kol<>0) then write('Цифра а не первая цифра числа:=',a,' и в числе-',kol,' цифры а')
else if kol=0 then write('В числе нет цифр а');
readln;
end.