Для каждого элемента массива определить, сколько раз в нём встречается его минимальная цифра

var
  MinNum,num: array of integer;
  number,i,j,k,q,min,m: integer;
  StrNum,StrMin: string;
begin
  write('Введите количество элементов массива: ');     // Это заменить на чтение из файла и запись в массив
  readln(j);
  num:= new integer[j];
  for i:=0 to j-1 do
  begin
    write('Введите ',i+1,' число: ');
    readln(num[i]);
  end;
  
  
  
  for i:=0 to (j-1) do
  begin
    k:=0;
    StrNum:= IntToStr(num[i]);
    MinNum:= new integer[length(StrNum)+1];
    number:= num[i];
    while number<>0 do
    begin
      MinNum[k]:= number mod 10;
      number:= number div 10;
      k+=1;
    end;
    min:=MinNum[0];
    for q:=1 to (k-1) do
    begin
      if MinNum[q]<min then min:=MinNum[q];
    end;
    m:=0;
    for q:=0 to (k-1) do
    begin
      if MinNum[q]=min then m+=1;
    end;
    num[i]:=m;
  end;
  
  
  writeln;
  for i:=0 to (j-1) do      // Это заменить на запись в файл
  begin
    write(num[i],' ');          
  end;
end.