Информатика. Паскаль. Программа должна брать числа из файла, находить наименьшее число из записанных в файле, числа по условию целые неотрицательные, их 14. Файл содержит 14 строк, после каждого номера строки через пробел следует целое неотрицательное число, то есть номер нужно игнорировать. ответ нужно записать в другой файл​

#include < iostream>

using std: : cin;

using std: : cout;

using std: : endl;

void result(double n, double *otputm, double *otputh, double m = 2, double h = 12, double p = 50, double b = 2)

{

double one = m / 100 * 1;

p = one * p;

m = m + (p * n);

h = h + (b * n);

*otputm = m;

*otputh = h;

}

int main() {

setlocale(lc_all, "russian"); //

double m;     //население (тысяч. чел)

double h;   //длина дорог (км)

double p;   //процент увеличения населения (%)

double b;   //увеличение дорог   (км)

double n;   //кол-во лет

double otputm = 0; //ответ людей

double otputh = 0; //ответ дорог

int input;

cout < < "вы хотите ввести m, h, p, b? \nвведите 1 - если хотите, 2 - если не хотите: ";

cin > > input;

if(input == 2)

{

  cout < <   "\nвведите n (кол-во лет) = ";

  cin > > n;

  result(n, & otputm, & otputh);

  cout < < "\nчерез " < < n < < " лет: ";

  cout < < "\nкол-во людей = " < <   otputm < < "\nдлина дорог = " < < otputh;

}else if(input == 1)

{

  cout < <   "\nвведите n (кол-во лет) = ";

  cin > > n;

  cout < < "введите m (население [тыс. чел.]) = ";

  cin > > m;

  cout < < "введите h (длина дорог [км]) = ";

  cin > > h;

  cout < < "введите p (процент увеличения населения [%]) = ";

  cin > > p;

  cout < < "введите b (увеличение дорог [км]) = ";

  cin > > b;

  result(n, & otputm, & otputh, m, h, p, b);

  cout < < "\nчерез " < < n < < " лет: ";

  cout < < "\nкол-во людей = " < <   otputm < < "\nдлина дорог = " < < otputh;

}else

{

  cout < <   "\nerror! ";

}

return 0;

}