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

[Real]

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

[Bokul]

И что ты изменил ? помоему ничего ... кроме направления просмотра строки.

Не только, во-первых, тепер длина строки вычисляется не в цикле.
А во-вторых, больше ничего не надо изменять, все и так работает

Вот код этого алгоритма:

Код

var s:string; i,len:byte;
begin
writeln('Enter string');
readln(s);
len:=length(s);
for i:=len downto 1 do
    if ((i mod 2)=0) and (s[i]='A') then
       delete(s,i,1);
writeln('Result :',s);
readln;
end.