Задача по информатике!

Как-то мутно описано, что должно быть на выходе. Вот эта программа выводит список чисел из файла powers.txt, имеющих максимальное число простых делителей.

 program PrimeFactors;

var i, n: integer;

    k, m: shortint;

    ds: array of integer;

    ff: Text;

function factors(n: integer): shortint;

const p: array of shortint = (2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43);

var j, f: shortint;

begin

  j := low(p);

  f := 0;

  while (j  1) do begin

    while n mod p[j] = 0 do begin

      f := f + 1;

      n := n div p[j]

    end;

    j := j + 1

  end;

  factors := f + shortint(n > 1)

end;

begin

  assign(ff, 'powers.txt');

  reset(ff);

  m := 0;

  setLength(ds, 0);

  for i := 1 to 1000 do begin

    read(ff, n);

    k := factors(n);

    if k > m then begin

      m := k;

      setLength(ds, 1);

      ds[low(ds)] := n

    end else if k = m then begin

      insert([n], ds, high(ds) + 1)

    end

  end;

  for i := low(ds) to high(ds) do

    write(' ', ds[i]);

  writeln

end. 

Язык FreePascal. В файле числа должны быть в текстовом формате и разделены пробелом или концом строки.

Нужен файл power.txt Без него задача не имеет решения!!!

Сложные вопросы какие-то у вас