Форум программистов [Powered by Invision Power Board]

Код

Program Dfile;
Var f,h,g: Text;
      d,s:string;
    i: Integer;
Begin {Установка связи между файловыми переменными и соответствующими именами файлов}
    Assign( f ,’Data.dat’);
    Assign(g , ‘Chet.dat’);
    Assign(h , ‘Nechet.dat’);
    {Открытие файлов для чтения и записи}
    Reset(f); 
    Reset(h); 
    Rewrite(g);
    While Not(Eof(f)) Do
        Begin
            Read(f, s); 
            Write(g, s) 
        End; {Закрытие файлов}
    While Not(Eof(h)) Do
        Begin
            Read(h, s);
            Write(g, s) 
        End; {Закрытие файлов}
  Close(f);  
  Close(g); 
  Close(h);
End.