{* Задача 175 *}

Unit ZADACH175;
Interface
Implementation
Begin
 writeln('Вводится строка с количеством слов от 1 до 10. Слова разделены зяпятой и пробелом, в конце строки - точка. Удалить повторные вхождения слов и вывести 2ой строкой. ');
End.

Program stroki;

Uses zadach175.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  s  : String;
  i  : integer;
  n  : integer;
  k  : integer;
  sl : Array[0..9] Of String;
Begin
  writeln('Vvedite slova razdelaya cherez zapatyy i probel');
  readln(s);
  For i := 1 To length(s) Do {* Переменная i увеличивается с 1 до length(s) *}
  Begin
    If (s[i]' ') And (s[i]', ') And (s[i]'.') Then
      sl[n] := sl[n] + s[i];
    If s[i] = ', ' Then
      n := n + 1;
  End;
  n := 1;
  For i := 0 To 8 Do {* Переменная i увеличивается с 0 до 8 *}
  Begin
    If sl[i]'' Then
    Begin
      For k := n To 9 Do {* Увеличиваем k от n до 9 с шагом 1 *}
      Begin
        If sl[i] = sl[k] Then
          sl[k] := '';
      End;
      
    End;
    n := n + 1;
  End;
  s := '';
  For i := 0 To 9 Do {* Увеличиваем i от 0 до 9 с шагом 1 *}
  Begin
    If sl[i]'' Then
    Begin
      write(sl[i]);
      n := 0;
      For k := 9 Downto i Do
      Begin
        If sl[k]'' Then
          n := n + 1;
      End;
      If n > 1 Then
        write(', ')
      Else write('.');
    End;
    
  End;
  writeln(s);
  readln; {* Ждем нажатия Enter *}
End.