Есть программка, которая вроде бы запускается и вроде бы работает:
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 -