{* Задача 165 *}

Unit ZADACH165;
Interface
Implementation
Begin
 writeln('Удалите из второй строки все символы, которые встречаются в первой строке, и поместите их в третью строку');
End.

Program zadach165;

Uses zadach165.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  St  : String;
  St2 : String;
  St3 : String;
  i   : word;
  j   : word;
Begin
  ClrScr; {* Очистка экрана *}
  St3 := '';
  Write('Введите первую строку:');
  ReadLn(St);
  Write('Введите вторую строку:');
  ReadLn(St2);
  For i := 1 To Length(St) Do {* Переменная i увеличивается с 1 до Length(St) *}
  Begin
    For j := 1 To Length(St2) Do {* Увеличиваем j от 1 до Length(St2) с шагом 1 *}
    Begin
      If St[i] = St2[j] Then
      Begin
        St2[j] := #0;
      End;
      
    End;
    
  End;
  For i := 1 To Length(St2) Do {* Цикл для i => [1 .. Length(St2)] *}
    If St2[i]#0 Then
      St3 := St3 + St2[i];
  WriteLn('Символы не повторяющиеся:');
  Write(St3);
  readln; {* Приостановка программы. Ожидание Enter *}
End.