Олимпиадное задание)

[AleX CODER]

Задача2. Шифровка
Радист шифрует текст следующим образом:
1. Убирает все пробелы и знаки препинания.
2. Заменяет все подряд идущие одинаковые буквы на одну такую.
3. Многократно вставляет в произвольное место текста две одинаковых буквы.

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

Тех. требования:
Имя входного файла: INPUT.TXT
Имя выходного файла OUTPUT.TXT
Формат входных данных:
В единственной строке входного файла записана шифровка, состоящая из строчных латинских букв. Длина шифровки не более 250 символов.
Формат выходных данных:
Единственная строка содержит восстановленный текст.

Пример входного файла
wwpdaadrogmibbimramerszzforuaam
Пример выходного файла
programersforum


Это задача с районной олимпиады по информатике (10 класс)
Какими средствами лучше решить эту задачу?
(по возможности выложите код)
Пытался перевести все символы в массив и удалить одинаковые идущие подряд, но не хватило времени (на олимпиаде)

[AleX CODER]

sorry, ошибка)
Пример входного файла
wwpdaadrogmibbimramerszzforuaam
Пример выходного файла
programersforum

[rpy3uH]

произошёл глюк форума, приношу извинения если чьё-то собщение было удалено

function Sdvig(str:string):string ;
var i,k,l :integer;
begin
l:=length(str);
for i:=1 to l do
  begin
    if str[i]=' 'then
      begin
        for k:=i+1 to length(str) do
          begin
            str[k-1]:=str[k+1];
          end;
      end;
  end;
  sdvig:=str;
end;


function Uncode(str:string):string;
var vStr:string;i:integer;bool:boolean;
begin
while (true) do
begin
str:=sdvig(str);
bool:=false;
for i:=1 to length(Form1.Edit1.Text) do
begin
vStr:=str[i];
if vStr=str[i+1] then
  begin
    str[i]:=' ';
    str[i+1]:=' ';
    bool:=true;
    end;
end;
if not bool then
begin
break;Uncode:=str;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Edit2.Text:=uncode(Form1.Edit1.Text);
end;

[AleX CODER]

чёт у меня не работает
хз

[Sm1Le]

тупо ... замени местами брейк и присвоение ...

begin
Uncode:=str;
break;
end;

а сейчас ? - Ща ЕХЕ кину вдруг что =)))))))

[AleX CODER]

спасибо)
все работает)
блин не хватает опыта))) код относительно небольшой, а я минут десять сидел думал)))

[Sm1Le]

аааааааааааааааа Я выиграл на олимпиаде =)))))))))))))))) Ура " !!!

[AleX CODER]

Там вообще то 4 задания)

[Ozerich]

Вот мне интересно в каком это городе на районе такие задачи(легкие).
У нас в минске потяжелее были(10 класс).

[Sm1Le]

я б не сказал что они легкие учитовая что их там 4 .... Сколько времени на Олимпиаду ?