Informatika (2 семестр) / 3 аттестация / опирование из одного в другой

program file3;
uses crt;
var fa1,fa2 ,fa3:file of char;
 symbol:char;
begin
assign(fa1,'G:\pascal\m1.txt');


reset(fa1);



while not eof(fa1) do
 begin
 read(fa1,symbol);


 end;
 close(fa1);
  write('файл обработан');
 end.