Подскажите кто нибудь как решить вот эту задачу ?

[Cyber 10111]

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

[type_Oleg]

Вот так, например.

var i : byte;
  str1,str2:string;
BEGIN
 Readln(str1);
 str2:=str1[1];	
 for i:=2 to Length(str1)do
  if str2[Length(str2)]<>str1[i] then str2:=str2+str1[i];
 Writeln(str2);  	
END.

[Cyber 10111]

Спасибо вам огромное )