program exercicio_6;

type linhap = ^linha;
     linha = record
                 texto_linha:string;
                 proximo: linhap;
             end;

var lista: linhap;
    arquivo: text;
    diretorio, search, replace: string;

procedure searchReplace(var arquivo:text; search,replace:string);
var p: linhap;
    posicao: integer;

begin
     reset(arquivo);
     new(p);
     while not(EoF(arquivo)) do
     begin
          readln(arquivo, p^.texto_linha);
          posicao:= pos(upcase(search), upcase(p^.texto_linha));
          if posicao <> 0 then
          begin
               delete(p^.texto_linha, posicao, length(search));
               insert(replace, p^.texto_linha, posicao);
          end;
          p^.proximo := lista;
     end;
     p^.proximo := nil;
     lista := p;
     close(arquivo);

     rewrite(arquivo);
       while p <> nil do
       begin
            writeln(p^.texto_linha);
            p:= p^.proximo;
       end;
     close(arquivo);
end;

begin
     lista := nil;
     writeln('Entre com o diretorio do arquivo:');
     readln(diretorio);
     writeln('Entre com a string que vc deseja encontrar e alterar');
     write('Encontrar: ');readln(search);
     write('Alterar: ');readln(replace);

     assign(arquivo, diretorio);

     searchReplace(arquivo,search,replace);
     readln();
end.