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

[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

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

[klem4]

Может быть тебе вот такой результат нужен :

uses crt;
var
   f1,f2 : text;
   s,temp     : string;
   i     : byte;

begin

   clrscr;

   assign(f1,'c:\input.txt');

   assign(f2,'c:\output.txt');

   reset(f1); rewrite(f2);

   while not(eof(f1)) do begin
      readln(f1,s);
      i := 1;
      while(i <= length(s)) do begin
         temp := s[i] + ' ';
         insert(temp,s,i);
         inc(i,4);
      end;
      writeln(f2,s);
   end;

   reset(f2); rewrite(f1);

   while(not(eof(f2))) do begin
      readln(f2,s);
      writeln(f1,s);
   end;

   close(f1);
   close(f2);

   readln;
end.

in
0
1 2
1 2 3

out : (будет и в файле in и в файле out)
0 0
1 1 2 2
1 1 2 2 3 3