В массиве из 10 целых чисел подсчитать сумму элементов более чем в 2 раза превышающих минимальный — Pascal (Паскаль)

    const
      n = 10;
     
    var
      k, min, sum, i: integer;
      a: array [1..n] of integer;
     
    begin
      min := MaxInt;
      writeln('Исходный массив:');
      for i := 1 to n do
      begin
        a[i] := random(n) + 1;
        write(a[i]:5);
        if a[i] < min then
          min := a[i];
      end;
      writeln;
      writeln('Min: ', Min);
      writeln('Массив чисел, удовлетворяющих условию: ');
      k := 0;
      sum := 0;
      for i := 1 to n do
        if a[i] > 2 * min then
        begin
          sum := sum + a[i];
          write(a[i]:5);
          inc(k);
        end;
      writeln;  
      if k <> 0 then  
        writeln('Sum: ', sum)
      else
        writeln('Нет таких элементов.');
    end.