работа с файлами

[Poma][a]

Доброго времени суток!
Вот 2 задачки, помогите решить плиз, :
1) Написать программу которая заносит в файл саму себя, НО наоборот (тоесть

end.
            Close (fout)
            Close (fin);

ну и так далее, задачу-то я решил, Но через массив строк, НО препад сказал что есть более красивое решение без массива, вот не подскажете?

и 2) Тоже самое копирование программы в файл (только уже нормальное копирование), скопировали -> смотрим один файл весит x, другой x+2, разница в 1 пустой строке, файл я заполнял WriteLn, а в основной программе после end. нет переноса строки, вот энтер это и есть 2 байта 10, 13 а вот как чтобы был одинаково? (я снова предложил тащить через весь цикл проверку на последний символ и тогда просто Write, но сами понимаете это ОЧЕНЬ не выгодно, а хочется красивых решений )

[TinMan]

Сообщение от 'Poma

скопировали -> смотрим один файл весит x, другой x+2, разница в 1 пустой строке, файл я заполнял WriteLn, а в основной программе после end. нет переноса строки, вот энтер это и есть 2 байта 10, 13 а вот как чтобы был одинаково? (я снова предложил тащить через весь цикл проверку на последний символ и тогда просто Write, но сами понимаете это ОЧЕНЬ не выгодно, а хочется красивых решений )

var
  fin,fout: file of char;
  c: char;
....
  while not EoF(fin) do begin
    read(fin,c);
    write(fout,c)
  end;

[offtop]Только я не вижу большого смысла в такой задаче. Если есть исходик, то скопировать его - как два байта передать.. Есть аналогичная задача, но при условии, что файла с исходиком нет.. Вот она поинтереснее будет! ))
Я в свое время ее решил, но никаких следов этого не осталось ((. На С при этом получалось короче и красивее.[/offtop]

[BDA]

Вроде работает 1-я:

Uses CRT;

var
  fin, fout: file of char;
  c: char;
  n, i, j: integer;
begin
  assign(fin, '1.pas');
  assign(fout, '2.pas');
  reset(fin);
  rewrite(fout);
  n := filesize(fin) - 1;
  i := n;
  while (n >= 0) and (i >= 0) do
  begin
    seek(fin, i);
    read(fin, c);
    if (c = #10) then
    begin
      for j := i + 1 to n do
      begin
        seek(fin, j);
        read(fin, c);
        write(fout, c);
      end;
    c := #13;
    write(fout, c);
    c := #10;
    write(fout, c);
    n := i - 2;
    i := n;
    end
    else
    dec(i);
  end;
  if n>=0 then
  for j := 0 to n do
      begin
        seek(fin, j);
        read(fin, c);
        write(fout, c);
      end;
  close(fin);
  close(fout);
end.