Задача по файлам нужна помощь!

[RomT24]

Доброго времени суток!
Есть очень простая задача, но у меня она не выводит на экран что требуется и ошибки я не вижу. Подскажите, ок?

 {Данны два текстовых файла.
Добавить в конец первого файла содержимое второго.}
uses crt;
var
  s2,s1,fn1,fn2:string;
  f1:text;
  f2:text;

begin
  cls;
  write('Введите имя для первого файла: ');
  read(fn1);
  write('Введите имя для второго файла: ');
  read(fn2);

  {Записываем строку в первый файл}
  writeln('Введите данные в 1 файл: ');
  Assign(f1,fn1);
  rewrite(f1);
  readln(s1);
  close(f1);
  {Тоже самое проделываем со вторым}
  writeln('Введите данные во 2 файл: ');
  assign(f2,fn2);
  rewrite(f2);
  readln(s2);
  close(f2);
  {Ставим указатель в первом файле в его конец}
   Assign(f1,fn1);
  Append(f1);
  {Второй открываем просто для чтения\считывания}
  Assign(f2,fn2);
  Reset(f2);
  {в цикле считываем данные со второго и записываем в первый файл}
  while not Eof(f2) do
  begin
    readln(f2,s2);
    writeln(f1,s2);
  end;
  CLose(f1);
  CLose(f2);
{Открываем первый файл для чтения и здесь на экран он должен вывести "сплюсованные" данные с 2 файлов..}
assign(f1,fn2);
reset(f1);
readln(s2);

close(f1);
end.

Всем буду очень признателен!!!

[Sazary]

Во-первых, имена файлов читайте readln'ом, а не read'ом. Иначе могут быть проблемы.
Во-вторых, данные вы читаете, но в файлы не записываете.
В-третьих, в конце вы файл открываете, но из него ничего не читаете.

 {Данны два текстовых файла.
Добавить в конец первого файла содержимое второго.}
uses crt;
var
  s2,s1,fn1,fn2:string;
  f1:text;
  f2:text;

begin
  clrscr;
  write('Введите имя для первого файла: ');
  readln(fn1);
  write('Введите имя для второго файла: ');
  readln(fn2);

  {Записываем строку в первый файл}
  writeln('Введите данные в 1 файл: ');
  Assign(f1,fn1);
  rewrite(f1);
  readln(s1);
  writeln(f1,s1);
  close(f1);
  {Тоже самое проделываем со вторым}
  writeln('Введите данные во 2 файл: ');
  assign(f2,fn2);
  rewrite(f2);
  readln(s2);
  writeln(f2,s2);
  close(f2);
  {Ставим указатель в первом файле в его конец}
   Assign(f1,fn1);
  Append(f1);
  {Второй открываем просто для чтения\считывания}
  Assign(f2,fn2);
  Reset(f2);
  {в цикле считываем данные со второго и записываем в первый файл}
  while not Eof(f2) do
  begin
    readln(f2,s2);
    writeln(f1,s2);
  end;
  CLose(f1);
  CLose(f2);
{Открываем первый файл для чтения и здесь на экран он должен вывести "сплюсованные" данные с 2 файлов..}
assign(f1,fn2);
reset(f1);
while not Eof(f1) do
 begin
 readln(f1,s2);
 writeln(s2);
 end;

close(f1);
readln;
end.

[Greblin]

Вы во-первых ничего в файлы не записали, а во-вторых считать то считали, но вот на экран не вывели, и к тому же считали из второго файла

uses crt;
var
  s2,s1,fn1,fn2:string;
  f1:text;
  f2:text;

begin
  write('Введите имя для первого файла: ');
  readln(fn1);
  write('Введите имя для второго файла: ');
  readln(fn2);

  {Записываем строку в первый файл}
  writeln('Введите данные в 1 файл: ');
  Assign(f1,fn1);
  rewrite(f1);
  readln(s1);
  write(f1, s1);
  close(f1);
  {Тоже самое проделываем со вторым}
  writeln('Введите данные во 2 файл: ');
  assign(f2,fn2);
  rewrite(f2);
  readln(s2);
  write(f2, s2);
  close(f2);
  {Ставим указатель в первом файле в его конец}
   Assign(f1,fn1);
  Append(f1);
  {Второй открываем просто для чтения\считывания}
  Assign(f2,fn2);
  Reset(f2);
  {в цикле считываем данные со второго и записываем в первый файл}
  while not Eof(f2) do
  begin
    readln(f2,s2);
    writeln(f1,s2);
  end;
  CLose(f1);
  CLose(f2);
{Открываем первый файл для чтения и здесь на экран он должен вывести "сплюсованные" данные с 2 файлов..}
assign(f1,fn1);
reset(f1);
readln(f1, s2);
writeln(s2);

close(f1);
end.

------------------------------------------
Sazary Сорри, пока писал, Вы уже ответили

[RomT24]

Кстати работает только второй вариант программы - в первом (Sazary) он выводит только строку из второго файла.. но всё равно огромное спасибо и respect!!

[Sazary]

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

Кстати работает только второй вариант программы - в первом (Sazary) он выводит только строку из второго файла..

Да.. Там просто нужно еще кое-что исправить:

assign(f1,fn1);
reset(f1);

иначе открывается второй файл.