Почему не записывает ответ в файл (Паскаль)

[Katrina*]

Почему не записывает ответ в C.out?

Program zadanie;
var f1,f2:text;
a,i,sum:integer;
begin
assign(f1,'C.in');
assign(f2,'C.out');
reset(f1); rewrite(f2);
read(f1,a);
sum:=0;
for i:=1 to a-1 do
if a mod i=0 then
begin
sum:=sum+i;
if sum>a then break;
end;
if sum>=a then write (f2,'yes')
else write (f2,'no');
close(f1); close(f2);
end.

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

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


Модератор.

[Serge_Bliznykov]

если ошибка не выдаётся, то наверняка всё записывает.
ищите по пути, который является текущим в момент запуска вашего EXE файла...
или укажите полный путь к файлу:

assign(f2,'c:\pascal\C.out');