Организовать замену в файле.

[Leshii]

Задание.
Организовать текстовый файл,который состоит из N строк.После,организовать замену в файле."Старый" и "новый" символ запрашиваются и вводятся с клавиатуры.

Мои наработки

Program files;
 Uses crt;
  const
    n=10;
  var
    i:integer;
    t,f:text;
    s:string;
    p:char;
  begin
   clrscr;
   assign(t,'file1.txt');
   rewrite(t);
   for i:=1 to n do
     begin
       readln(s);
       writeln(t,s);
     end;
   close(t);
   reset(t);
   assign(f,'file2,txt');
   rewrite(f);
   while not eof(t) do
     begin
       writeln('If you want to change symbols in file_2 press y/n')
       readln(p);
   case p of
   'y':begin
           readln(f,s);
           If S[i]='a' then S[i]:='b';
           writeln(f,s);
         end;
    'n': writeln('end of program');
         end;
         end;
close(t);
close(f);
end.

Выскакивает ошибка: "File not open for input" тоесть как я понял файл не открыт для записи.
И если возможно подсказать что я делаю не так.Возможно есть ошибки которые не заметил.
Прошу прощения убрал строку где программа зацикливалась,не заметил когда писал.

[Alex11223]

Ну как минимум не компилится из-за забытого ; и в case лишний енд вроде, вот исправленный:

    case p of
      'y':
        begin
          for i := 1 to n do
          begin
            readln(f, s);
            if S[i] = 'a' then S[i] := 'b';
            writeln(f, s);
          end;
        end;
      'n': writeln('end of program'); 
    end;
  end;

А ошибка где? У меня после ввода и выбора y вылетает с малопонятной ошибкой (в PascalABC).

[Leshii]

Я кажется понял суть ошибки,это есть неверное трактования мною смысла задачиСейчас переделаю.

[Leshii]

Получилось что то эдакое после переделки.

Program files;
 Uses crt;
  const
    n=10;
  var
    i:integer;
    t,f:text;
    s:string;
    s1,s2:char;
begin
   clrscr;
   assign(t,'file1.txt');
   rewrite(t);
   for i:=1 to n do
     begin
       readln(s);
       writeln(t,s);
     end;
      close(t);
      reset(t);
       assign(f,'file2,txt');
       rewrite(f);
        writeln('Enter Old_Symbol: ');
         readln(s1);
          writeln('Enter New_Symbol: ');
           readln(s2);
             s1:=s2;
   while not eof(t) do
     begin
      readln(t,s);
      writeln(f,s1);
     end;
close(t);
close(f);
end.

Вроде логику уловил.Теперь собственно вопрос
Как сделать так чтобы менялся именно тот символ который я ввожу и который может находится не только в одной строке?
Скажем ввожу строку символов : &*()(*) %%% ,после заменяю любой старый символ (себто %) на новый (?) и поидее должен получить вместо процентов знаки вопроса.
Суть вопроса описал выше,собственно нужна подсказка как)А уж свой мозг я постараюсь напрячь.

[Alex11223]

        readln(s1);
        writeln('Enter New_Symbol: ');
        readln(s2);
        s1:=s2;

А смысл в этом какой?оО

Дальше что-то не понял как и что тут заменяется, но по-моему надо как-то так: прочитал строку из старого, просмотрел строку и заменил нужные символы, записал в новый.

[Serge_Bliznykov]

1) как абсолютно правильно заметил Alex11223
строчку
s1:=s2;
выкинуть напрочь!

2) основной цикл может быть, например, такой:

   while not eof(t) do
     begin
      readln(t,s);
      while Pos(s1, s)>0 do
             s[ Pos(s1, s) ] := s2;
      writeln(f,s);
     end;