Удалить все буквы "а" предшествующие первой запятой, а все буквы "q" после первой запятой заменить на "!"

@anya_85 · Регистрация: 07.09.2014

Author24 — интернет-сервис помощи студентам

Доброй ночи всем!
Очень нужна помощь в решении задачи.
Дана строка. Удалить все буквы "а" предшествующие первой запятой, а все буквы "q" которые идут после первой запятой заменить на "!".
вот то что я нарешала,но она работает некоректно. Никак не могу понять где ошибка

Pascal

program zadacha;
uses crt;
var s:string;
     i,n:byte;
begin
writeln('vvedit ryadok simvoliv');
readln(s);
i:=0;
  while s[i]<>',' do
  begin
    if s[i]='a' then
    Delete(s,i,1);
    i:=i+1;
   end;
  for n:=i+1 to length(s) do
   if s[i]='q'then
    begin
    delete(s,i,1);
    insert('!',s,i);
    end;
   writeln(s);
  repeat until Keypressed;
end.

@CodeR · 07.09.2014, 07:12

Pascal

program zadacha;
uses crt;
var s:string;
     i,n:byte;
begin
writeln('vvedit ryadok simvoliv');
readln(s);
if Pos(',',s)=0 then
Begin
  writeln('Нету запятой.');
  repeat until Keypressed;
  Exit;
End;
i:=1;
  while s[i]<>',' do
  begin
    if s[i]='a' then
    Begin
      Delete(s,i,1);
      dec(i);
    End;
    i:=i+1;
   end;
  for n:=i+1 to length(s) do
   if s[n]='q'then
    begin
    delete(s,n,1);
    insert('!',s,n);
    end;
   writeln(s);
  repeat until Keypressed;
end.

@anya_85 · 07.09.2014, 09:50 **[ТС]**

Спасибо огромное, все получилось!))

@anya_85 0 / 0 / 0 Регистрация: 07.09.2014 Сообщений: 2
	07.09.2014, 09:50 [ТС]	3
	Спасибо огромное, все получилось!)) 0