помогите пожалуйста!!! Паскаль

[светлана]

Для решения задачи используйте типизированный файл.1.Даны символьные файлы f1 и f2. Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1. Заранее СПАСИБО!

[AVer]

Вот код рабочей программы:

var f1,f2: file of char;
    s:string;
    a:char;
    i:integer;
begin
Assign(f1,'f1.txt');
Assign(f2,'f2.txt');
Reset(f1);
i:=1;
repeat
Read(f1,s[i]);
inc(i);
until EoF(f1);
Rewrite(f1);
Reset(f2);
repeat
read(f2,a);
write(f1,a);
until EoF(f2);
close(f1);
Rewrite(f2);
for i:=1 to length(s) do
write(f2,s[i]);
close(f2);
writeln(s);
readln;
end.