В строке удалить каждую пару символов "pq" и подсчитать общее количество символов '.' и ','

##
  var s := ReadlnString('Введите строку:').Replace('pq', '');
  $'Строка без пар символов "pq": {s}'.Println;
  var k := s.Count(x -> x in '.,');
  $'Общее количество символов "." и "," равно {k}'.Println

var
  s: string;
  i, k: integer;
begin
  writeln('Введите строку:');
  readln(s);
  i := length(s) - 1;
  while i > 0 do
    begin
      if (s[i] = 'p') and (s[i+1] = 'q' ) then
        begin
          delete(s, i, 2);
          dec(i)
        end;
      dec(i)
    end;
  writeln('Строка без пар символов "pq":');
  writeln(s);
  k := 0;
  for i := 1 to length(s) do
    if s[i] in ['.', ','] then inc(k);
  writeln('Общее количество символов "." и "," равно ', k)
end.

var
  i, k: Integer;
  s: String;
begin
  Write('Строка: ');
  ReadLn(s);
  i:=1;
  while i<Length(s) do
    if (s[i]='p') and (s[i+1]='q')
    then Delete(s,i,2)
    else Inc(i);
  {k:=0;}
  for i:=1 to Length(s) do
    if s[i] in ['.',',']
    then Inc(k);
  WriteLn('Кол-во символов "." и ",": ', k);
  WriteLn('Строка без "pq": ',s);
end.

var
  i, j, k: Integer;
  s: String;
begin
  Write('Строка: ');
  ReadLn(s);
  for i:=Length(s)-1 downto 1 do
    if (s[i]='p') and (s[i+1]='q')
    then Delete(s,i,2);
  {k:=0;}
  for i:=1 to Length(s) do
    if s[i] in ['.',',']
    then Inc(k);
  WriteLn('Кол-во символов "." и ",": ', k);
  WriteLn('Строка без "pq": ',s);
end.