Работа с файлами - Turbo Pascal (250515)

Формулировка задачи:

даны символьные файлы f1 f2. переписать в файл f посимвольно из файлов f1 и f2. (один символ из f1, другой из f2)

Решение задачи: «Работа с файлами»

textual
                            Листинг программы 
                        

                            uses crt;
var f,f1,f2:file of char;
    i:integer;
    c:char;
begin
clrscr;
randomize;
assign(f1,'f1');
rewrite(f1);
assign(f2,'f2');
rewrite(f2);
for i:=1 to 20 do {запишем в файлы по 20 символов}
 begin
  c:=chr(48+random(43));{случайные символы от 0 до Z}
  write(f1,c);
  c:=chr(48+random(43));
  write(f2,c);
 end;
reset(f1);
writeln('Содержание файла f1');
while not eof(f1) do
 begin
  read(f1,c);
  write(c);
 end;
writeln;
reset(f2);
writeln('Содержание файла f2');
while not eof(f2) do
 begin
  read(f2,c);
  write(c);
 end;
writeln;
reset(f1);
reset(f2);
assign(f,'f');
rewrite(f);
while not eof(f2) do
 begin
  read(f1,c);
  write(f,c);
  read(f2,c);
  write(f,c);
 end;
close(f1);
close(f2);
reset(f);
writeln('Содержание файла f');
while not eof(f) do
 begin
  read(f,c);
  write(c);
 end;
close(f);
readln
end.
                        