Вычислить значение выражения для чисел, хранящихся в текстовом файле - PascalABC.NET

Формулировка задачи:

Помогите найти ошибку "Решить задачу с использованием структуры «текстовый файл» (в файле хранятся целые числа). Для заданного файла вычислить a1 + 2a2 + 3a3 + ... + nan (здесь ai — последовательно прочитанные элементы файла, причём нумерация начата с 1)"

                    Листинг программы
                
 
                        
                          
                    
var
  f: text;
  x, s,i,n: integer;  
begin
  Assign(f, '24(1).txt');
  Reset(f);
  s:=0;
  while not eof(f) do
  begin
  Read(f, x);
   for i:=1 to n do
    begin
        s := s + i*x;
         end; end;
      WriteLn('Сумма =',s);
     Close(f);
  ReadLn
end.

Решение задачи: «Вычислить значение выражения для чисел, хранящихся в текстовом файле»

Листинг программы

var
  f: Text;
  a: integer;
begin
  Assign(f, '24(1).txt');
  Reset(f);
  while not EOF(f) do
  begin
    Read(f, a);
    writeln(a);
  end;
  Close(f);
  ReadLn;
end.

Объяснение кода листинга программы

Объявляются две переменные:
- f: Text;
- a: integer;
Открывается файл '24(1).txt' для чтения с помощью функции Assign(f, '24(1).txt');
Устанавливается позиция чтения файла в начало с помощью функции Reset(f);
Запускается цикл while, который выполняется до тех пор, пока не достигнет конца файла EOF(f) не равно true.
Внутри цикла считывается число из файла в переменную a с помощью функции Read(f, a);
Число выводится на экран с помощью функции writeln(a);
Закрывается файл с помощью функции Close(f);
Программа ожидает ввода пользователя с помощью функции ReadLn;