Строки. Паскаль

[Базиля]

N:=1;
for j:=1 to length(st)-n do {проход по слову, длина строки-n, для того чтобы не трогал последнюю букву} 
   begin
   h:=length(st);
   if st[j]=st[h] then
   begin
   delete(st,j,1);
   inc(n);
   end;
   end;

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

[fbus]

for i:=1 to length(st)-1 do
if st[i] = st[length(st)] then delete....
помойму так

[Базиля]

fbus

при удалении буквы, перед нею стоящие сдвигаются, поэтому параметр цикла нужно уменьшить на то кол-во раз, сколько раз удалялась буква.

[NSV]

создай две строки и копируй из первой во вторую

[Alex_FF]

а может лучше просто цикл с конца начинать?

i := Length(St) - 1;
while i >= 1 do
      if St[I] = St[Length(St)] then Delete(St, i, 1)
      else Dec(i);

[Базиля]

Alex_FF
спасибо
а что у меня не правильного?

[Alex_FF]

Сообщение от Базиля

Alex_FF
спасибо
а что у меня не правильного?

В паскале в цикле for начальный и конечный индекс цикла считаются один раз при инициализации цикла. Поэтому от того, что ты отнимаешь N от конечного индекса толку нету, т. к. заново при следующей итерации цикла индексы не пересчитываются.

[Базиля]

Alex_FF
тьфу! точно спасибо, что-то как-то из головы это вылетело