Посчитать сумму цифр натурального числа из файла (Паскаль)

[Avicenna]

Посчитать сумму цифр натурального числа. Вводится число из файла Input.txt. Вывести сумму его цифр в файл ANSWER.txt.
Пример входного файла
157
Пример выходного файла
13

Program facepalm2;
Uses Crt;

var x:integer;
 i,s:integer;
 f,f2:text;

begin
 Assign(f, 'Input.txt');
 Reset(F);
 s:=0;
 Read(f,x); 
 while ( x<>0 ) do 
 begin
   s := s + (x mod 10);
   x := x div 10;
 end;
Close(F);

Assign(f2, 'ANSWER.txt');
Reset(f2);
Write(f2,s);
Close(f2);
end.

В чём ошибка?

________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.

[Pein95]

проблема в работе с файлами, потому что такой код:

Program facepalm2;


var x:integer;
i,s:integer;
f,f2:text;

begin

read(x); 
s:=0;
while ( x<>0 ) do 
begin
s := s + (x mod 10);
x := x div 10;
end;
writeln(s);

дает правильный ответ

[Avicenna]

Файлы .тхт должны находиться в одной папке?

[Pein95]

если смотреть на твой код тога да.