Помогите с задачкой на Паскале, пожалуйста!

Question

Нужно преобразовать строку, оставляя только один символ в каждой последовательности подряд идущих одинаковых символов.

Anar Rustamov · Accepted Answer

program q171192723;
var
i: integer;
s: string;
begin
ReadLn(s);
i := 1;
repeat
if i < Length(s) then
begin
while (i < Length(s)) do
if (s[i + 1] = s[i]) then
Delete(s, i + 1, 1)
else
Break;
end;
Inc(i);
until i >= Length(s);
WriteLn(s);
ReadLn;
end.

Redis, всё-равно сам (а) не решит. Загадит всю ветку дублем одного и того-же вопроса.

Алёна アりヨナ Raydro · Answer

r := s[1];

for i := 2 to length(s) do if (s[i-1] != s[i]) then r := r + s[i];

: Нафига выкладывать полные решения?

Анна Колосова · Answer

s="....";
s=DeleteDublicateChar(s);