{* Количество запятых в строке *}

Unit COLZAP;
Interface
Implementation
Begin
 writeln('Определить количество запятых в строке, удалить её часть, заключённую между первой и второй запятыми. Заменить оставшиеся запятые тремя вопросительными знаками. ');
End.

Program colzap;

Uses colzap.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  a  : String;
  b  : String;
  i  : integer;
  s  : integer;
  k  : integer;
  m  : integer;
  m1 : integer;
  c  : Array[1..100] Of integer;
Begin
  s := 0;
  Writeln(' Enter STR');
  readln(a);
  For i := 1 To length(a) Do {* Увеличиваем i от 1 до length(a) с шагом 1 *}
  Begin
    If a[i] = ', ' Then
    Begin
      s := s + 1;
      c[s] := i;
    End;
    
  End;
  delete(a, c[1], (c[2] - c[1]));
  For i := 1 To length(a) Do {* Переменная i увеличивается с 1 до length(a) *}
  Begin
    If a[i] = ', ' Then
    Begin
      delete(a, i, 1);
      insert('???', a, i);
    End;
    
  End;
  writeln(a);
End.