Программка на работу с файлами Опции

[Alexey]

Есть задача: создать новый типизированный файл, добавив к двум записям предыдущего файла третью запись.
Есть программка, которая вроде бы запускается и вроде бы работает:

Код

program files;
var f1,f2:file of string;
       a:string;
begin
assign(f1,'file1.txt');
assign(f2,'file2.txt');
rewrite(f1);
write(f1,'zapys 1');
write(f1,'zapys 2');
close(f1);
reset(f1);
rewrite(f2);
read(f1,a);
write(f2,a);
write(f2,'zapys 3');
close(f1);
close(f2);
end.

Единственное что - таинственные файлы file1.txt и file2.txt не появляются...
(есличо: change dir сделал, программу сохранил...)

Подскажите, пожалуйста, правильно ли составлена сама прога?

Сообщение отредактировано: Alexey - 29.10.2007 1:58