Задача с файлом Опции

[TBVlad]

Второй день сижу вот над чем...
Как заставить прогу считать содержимое файла (явно текстового, ибо разбит на строки разной длины) и каждый символ повторить 2 раза через пробел?
Вот содержимое:
1 3 5 6 7 8
2 3 3 3
3 4 6 4 4
5 1 1 1 1
6 5 7 5
2

И что делать, если программа при исполнении выдаёт мне "файл не открыт для чтения", при том, что у меня указано, что он открыт?

[TBVlad]

Вот код. В общем, он компилируется и работает. НО... он перезаписывает данные во второй файл (увы, я не понимаю пока, как сделать так, чтобы он перезаписывал в старый), и не посимвольно, а дублируя группу символов (строку).
Если я ухожу от текстового типа и задаю в типе файла и в переменной элементов другие (integer, char), компилятор ругается и говорит, что файл не открыт...

Program File1;
Var t,t1 :text;
s :string;

Begin
Assign(t,'file1.txt');
Assign(t1,'file2.txt');
{$I-}
Reset(t);
{$I+}
If IOResult<>0 then
Begin
Writeln('The file is absent.');
Halt;
End;
Rewrite(t1);
While not eoln(t) do
Begin
Read(t,s);
Writeln(t1, s,s,' ');
Readln(t);
End;
Close(t1);
End.

[volvo]

он перезаписывает данные во второй файл (увы, я не понимаю пока, как сделать так, чтобы он перезаписывал в старый)

Никак... Текстовый файл не имеет Random-доступа, только последовательно, значит ты не можешь ЗАМЕНИТЬ старую информацию на новую... Когда второй файл будет полностью создан - удали первый и переименуй новый на старое имя...

Program File1;
Var
  t, t1: text;
  n: integer;

const
  s_name = 'fff.txt';

begin
  Assign(t, s_name);
  {$I-}
    reset(t);
  {$I+}
  if IOResult <> 0 then begin
    Writeln('The file is absent.'); Halt;
  end;

  Assign(t1,'fff_1.txt'); Rewrite(t1);
  while not eof(t) do begin

    While not eoln(t) do Begin
      Read(t,n);
      Write(t1, n, ' ', n,' ');
    end;
    Readln(t); writeln(t1);
  end;

  close(t);
  Close(t1);

  erase(t);
  rename(t1, s_name);
End.