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

[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.