Из динамического списка, содержащего последовательность символов, удалить все одинаковые символы, кроме одного.
есть решение этой задачи только не при помощи списков, сколько не читаю не могу понять как эти самые списки описывать. Если не трудно помогите изменить решение так, что бы символы были списком. Всем зарание спасибо.
Uses Crt;
Var I,J : Integer;
Si,So : String;
Begin
TextColor(White);
WriteLn('‚введите строку символов -');
TextColor(LightGray);
ReadLn(Si);
For I := Length(Si) DownTo 1 Do
For J := I-1 DownTo 1 Do Begin
If Si[I] = Si[J] Then Si[J] := CHR(27);
End;
So := '';
For I := 1 To Length(Si) Do
If Si[I] <> CHR(27) Then So := So + Si[I];
TextColor(White);
WriteLn('Заданная строка после обработки:');
TextColor(LightGray);
WriteLn(Si);
TextColor(White);
WriteLn('полученная строка содержащия только последние вхождения символов:');
TextColor(LightGray);
WriteLn(So);
End.
:p2: прошу не закрывайте эту тему, сильно нужен ответ, сама не могу разобраться.