обработка строковых и символьных величин

[Георгий Златов]

вводится последовательность символов, заменить все буквы "а" на "б"(только начал изучать паскаль)

[Niro]

for i:=1 to length (stroka) do
  if stroka [i] = 'а' then stroka [i]:= 'б';

[Георгий Златов]

так что ли

S:string;
i:integer;
begin
readln(s)
for I:=1 to length(s) do
if s[i]:='a' then s[i]:='b'
writeln(s);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

var
  s : string;
  i : integer;
begin
  readln(s);
  for i := 1 to length(s) do
      if s[i] := 'a' then s[i] := 'b';
  writeln(s);
  readln;
end.

[whatever]

Не обязательно пробегать всю строку:

var
  s:string;
  i:byte;
begin
  readln(S);
  while pos('a',s)<>0 do
    begin
      i:=pos('a',s);
      delete(S,i,1);
      insert('b',S,i);
    end;
  writeln(S);
  readln
end.

[Serge_Bliznykov]

Не обязательно пробегать всю строку

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

хотя, по сути, согласен, это тоже решает поставленную задачу...

[whatever]

Сообщение от Serge_Bliznykov

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

хотя, по сути, согласен, это тоже решает поставленную задачу...

По поводу эффективности согласен, уже после того как написал подумал.

С другой стороны, предположем, что дана строка, например, "aqqqqqqqqqqqqaqqqqqqa". Тогда, занимаясь отладкой, не придется 21(?) раз тыкать F7 или F8, а только три раза.

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