Копирование компонентов файла f1 в f2

[WInnER2192]

даны символьные файлы f1 и f2. Перепишите с сохранение порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 - в файл f1. Используйте вспомагательный файл h.
Так программу написал но мне нужно через процедуру(может через что то другое (путаюсь)) а я не пойму как там писать( Вот код:

program z7;

{$APPTYPE CONSOLE}

uses
SysUtils;

var f1,f2,h:file of char;

k:integer;
begin
Assign(f1,'f1.txt');
Assign(f2,'f2.txt');
Assign(h,'h.txt');
reset(f2);
rewrite(h);
while not(eof(f2)) do begin
read(f2,k);
write(h,k:3);
end;
close(f2);
close(h);
reset(f1);
while not(eof(f1)) do begin
read(f1,k);
write(f2,k:3);
end;
close(f1);
close(f2);
reset(h);
while not(eof(h)) do begin
read(h,k);
write(f1,k:3);
end;
close(h);
close(f1);
readln;
end.

Помогите )) Заранее спасибо.

[Grag]

Сообщение от WInnER2192

даны символьные файлы f1 и f2. ......... Используйте вспомагательный файл f2.

Символьные файлы f1 и f2 - это f1,f2:file of char; но никак не text. Речь идет о типизированных файлах. Да и про временный файл h в задании ничего не сказано (использовать нужно вспомогательный f2)....

[WInnER2192]

Сообщение от Grag

Символьные файлы f1 и f2 - это f1,f2:file of char; но никак не text.
Да и про временный файл h в задании ничего не сказано (использовать нужно вспомогательный f2)....

Извиняюсь не так записал )

[WInnER2192]

Помогите .....