{* Удаление одинаковых символов *}

Unit UDALODIN;
Interface
Implementation
Begin
 writeln('Оставить в строке только один экземпляр каждого встречающегося символа.');
End.

Program pas65845;

Uses udalodin.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  s1 : String;
  s2 : String;
  s3 : String;
  i  : byte;
Begin
  write('String: ');
  readln(s1);
  s2 := '';
  For i := 1 To length(s1) Do {* Цикл для i => [1 .. length(s1)] *}
  Begin
    s3 := copy(s1, i, 1);
    If pos(s3, s2) = 0 Then
      s2 := s2 + s3
  End;
  writeln('String: ', s2);
  readln
End.