удаление из строки лишних символов

[maxefficiently]

Всем привет, помогите, пожалуйста, решить задачу:
имеем строки типа:
00000
11111
22222

нужно 10-й символ изменить на А. Однако, после 1-й строки идёт перенос на новую строку. Что я пытаюсь: сделать все строки в одну строку и заменить 10-й символ на А при этом удаляя перенос строки, чтобы именно 10-й символ заменился без смешения из-за переноса строки.

Имею код:

  
   var    str:tstringlist;  s:string; i:integer;
begin
  str:=tstringlist.Create;
  str.LoadFromFile('1.txt');
  s:=str.Text;
  i:=9999;
  while i<>0 do
  begin
  i:=pos(#13#10,s); //удаляю переносы, использую #13 или #13#10
  if i<>0 then delete(s,i,1);
  end;
  str.Text:=s;
  str.SaveToFile('111.txt'); //вид в 2-е строки с переносом, откуда не понял
  memo1.Lines.Add(s);       //вид в 1-у строку
  showmessage(inttostr(length(s))); //получается на 1-н символ больше, на какой не понял, если в ручную пересчитать
  str.Free;
end;

в итоге, по факту, например 20 символов, а showmessage показывает 21, когда в memo1 перехожу стрелкой клавиатуры вправо при подходе к символу ":" почему-то нужно 2-а раза на клавишу нажать, чтобы перейти дальше; memo1 показывает текст в одну линию, а в str.SaveToFile('111.txt') уже в 2-е.

Подскажите, пожалуйста, как все-таки удалить все символы, чтобы по факту было 20 символов и программа показывала 20 символов и все в одну строку, тогда 10-й (или любой иной) символ точно на А смогу заменить, а не другой символ ничаяно.

[maxefficiently]

вроде исправил, в delete(s,i,1); сделал так delete(s,i,2);

это правильно, что 2-а символа удаляю, типа #13#10?

[Serge_Bliznykov]

не разбираясь особо в Вашем хитроумном алгоритме.

Но, раз Вы переводы хотите удалить, так удаляйти их полностью, а не на половину:

if i<>0 then delete(s,i,2);

Добавлено
ну вот, пока я писал пост, Вы уже и сами разобрались!

это правильно, что 2-а символа удаляю, типа #13#10?

эээ... Это Вы нас спрашиваете, правильно ли Вы делаете, что удаляете все переносы строк?
(т.е. фактически собираете строку в одну?!)
Вам виднее!!