Сколько раз встречается минимальная цифра в записи введенного…?

Program Pr1; uses crt; var mas: array[1… 4] of integer; stroka: string; i,min,b: integer; Beginclrscr; 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]