[tv999]

Еще один вопрос!!Почему букву 'c' прога не удаляет??

Код:

program Project1;


{$APPTYPE CONSOLE}

var str: string; i: integer;
begin
writeln('vedite stroku');
Readln(str);
    begin
  for i:=1 to length(str) do
    if(str[i] = 'b') or (str[i] = 'c') or (str[i] = 'd') then
      Delete(Str, i, 1);
    end;
begin
writeln(str);
readln;
end;
End.

Делаю тест,получается вот,что

Код:

Vedite sroku 
abcdfabcg
acfacg

Почему он именно это выдает,а не "afag"??