Строки, Удаление Опции

[Real]

Составьте программу удаления символов «А» стоящих на четных местах в полученной от пользователя строке.

[klem4]

Да я погорячился по ходу, извиняюсь.

Я бы решал так

i := 2;
  while (i <= length(s)) do
   if s[i] = 'A' then begin
     delete(s, i, 1);
     inc(i);
  end else inc(i, 2);