Файл из символов. Заменить символы +,-,*,/ в сформированном файле символами 55.

uses crt;
var
str:string;
a:text;
i:integer;
begin
clrscr;
writeln('Vvedite stroky');
readln(str);
for i:=1 to Length(str) do
begin
if (str[i]= '+') or (str[i]= '-') or (str[i]= '*') or (str[i]= '/') then
str[i]:=('55');
end;
writeln('Poluchennaya stroka:',str);
assign(a,1.txt);
rewrite(1.txt,str);
readkey;
end.

uses crt;
var f:file of char;
    c:char;
    n,i:integer;
begin
clrscr;
assign(f,'symbol');
rewrite(f);
write('Сколько символов ввести в файл n=');
readln(n);
writeln('Введите в файл ',n,' символов, в том числе + - * /');
for i:=1 to n do
 begin
  readln(c);
  write(f,c);
 end;
close(f);
write('Символы записаны в файл symbol');
readln
end.

[PASCAL]uses crt;
var f:file of char;
    nf:string;
    a,c:char;
    i,j:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
writeln('Содержание исходного файла:');
while not eof(f) do
 begin
  read(f,c);
  write(c);
 end;
writeln;
writeln;
seek(f,0);{возвращаемся в начало файла}
i:=0;{начнем с первого элемента, его индекс=0}
while i<filesize(f) do{пока не последний компонент}
 begin
  seek(f,i);{встаем в позицию}
  read(f,c);{читаем символ}
  if c in ['+','-','*','/'] then{если это знак}
   begin
    for j:=filesize(f) downto i+1 do{от конца файла+1 до данный элемет+1}
     begin
      seek(f,j-1);{читаем выше}
      read(f,a);
      seek(f,j);
      write(f,a); {вставляем ниже}
     end;
    a:='5';{присваиваем 5}
    seek(f,i);
    write(f,a);{запишем на место символа}
    seek(f,i+1);
    write(f,a);{и на 1 впереди}
    i:=i+2; {перешагнем}
   end
  else i:=i+1;{если не знак дальше}
 end;
seek(f,0);
writeln('Замена символов:');
while not eof(f) do
 begin
  read(f,c);
  write(c);
 end;
close(f);
readln
end.

begin
write('Имя файла для чтения: ');
readln(nf);
assign(f,nf);
if not fileexits(nf) then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
writeln('Содержание исходного файла:');