{* Задача 79 *}

Unit ZADACH79;
Interface
Implementation
Begin
 writeln('Определить имеется ли в последовательности слова, в которых каждая буква входит в него не менее 2 раз ');
End.

Program zadach79;

Uses zadach79.pas; {* Эту строку можно удалить *}
Const {* Постоянные значения *}
  dem = ' .,! : ;
  ()"';
Var {* Необходимые переменные *}
  s                   : String;
  sl                  : String;
  i                   : integer;
Function anychars(s : String);
Var {* Объявление переменных *}
  i   : integer;
  mas : Array[byte] Of byte;
Begin
  fillchar(mas, sizeof(mas), 0);
  anychars := false;
  For i := 1 To length(s) Do {* Переменная i увеличивается с 1 до length(s) *}
    If mas[ord(s[i])] > 0 Then
    Begin
      anychars := true;
      exit;
    End;
    Else inc(mas[ord(s[i])]); {* mas[ord(s[i])]++ *}
End;
Begin
  writeln('Vvedite predlogenie...');
  readln(s);
  writeln(#13#10, 'Slova s povtoryaushimisya bukvami:',#13#10);
  For i := 1 To length(s) Do {* Переменная i увеличивается с 1 до length(s) *}
  Begin
    If pos(s[i], dem) > 0 Then
    Begin
      If (sl  '') Then
      Begin
        If (anychars(sl)) Then
          writeln(sl);
        sl := '';
        continue;
      End;
      
    End;
    Else sl := sl + s[i];
  End;
  readln; {* Ждем нажатия Enter *}
End.