Файлы,Pascal

[Svetlana999]

Имеется 3 файла.соединить два из них чередуя элементы.А третий переписать в конец нового файла.Вывести файл на экран
Помогитее пожалуйста решить)Вообще паскаль не понимаю

[Sciv]

файлы какого типа?

[Serge_Bliznykov]

Света, а что не получается то?

так устроит?

  Reset(f1);
  Reset(f2);
  Rewrite(fNew);
  i := 1; 
  while (Not eof(f1)) or  (Not eof(f2)) do begin
     if odd(i) and (Not eof(f1)) then 
     begin
        Read(f1, X);
        Write(fNew, X);
     end;
     if (Not odd(i)) and (Not eof(f2)) then 
     begin
        Read(f2, X);
        Write(fNew, X);
     end;
     inc(i);
  end;
  Close(f1);
  Close(f2);

  {теперь компоненты третьего файла допишем в конец файла fNew}
  Reset(f3);
  while Not eof(f3) do begin
      Read(f3, X);
      Write(fNew, X);
  end;
  Close(f3);

  Close(fNew);

  { теперь выведем содержимое нового файла на экран }
  Reset(fNew);
  while Not eof(fNew) do begin
      Read(fNew, X);
      Write(' ',X,' ');
  end;
  WriteLn;
  Close(fNew);

  WriteLn('Баста! Финиш.');
  Readln
end.

[Mad_Cat]

1)открываем 2 первых файла на чтение
2)читаем из 1 файла пишем в 4
3)читаем из 2 файла пишем в 4
4) повторяем пункты 2,3 пока не кончится один из файлов
5)если кончился первый файл повторяем пункт 3 пока не кончится файл #2
иначе
кончился второй файл повторяем пункт 2 пока не кончится файл #1
6)открываем 3 файл на чтение
7)читаем из 3 файла пишем в 4 пока не кончится файл #3
8)закрываем все файлы
9) enjoy!

[Svetlana999]

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

файлы какого типа?

файлы какого типа? TEXT