Сколько раз встречается минимальная цифра в записи введённого с клавиатуры 4-х значного числа?

Program Pr1;
uses crt;
var mas:array[1..4] of integer;
stroka:string;
i,min,b:integer;
Begin
clrscr;
writeln('Vvedite chislo');
readln(stroka);
for i:=1 to 4 do val(stroka[i],mas[i],b);
min:=10;
b:=0;
for i:=1 to 4 do if mas[i]<min then min:=mas[i];
for i:=1 to 4 do if mas[i]=min then b:=b+1;
writeln(b);
end.