Олимпиадная задача

[СергейАстрахань]

Шпион Коля зашифровал и послал в центр радиограмму. Он использовал такой способ шифровки: сначала выписал все символы своего сообщения (включая пробелы и т.п.), стоявшие на четных местах, в том же порядке, а затем *– все символы, стоящие на нечетных местах. Напишите программу, которая расшифровывает сообщение.

Формат входных данных

Вводится одна непустая строка длиной не более 250 символов – зашифрованное сообщение. Строка может состоять из любых символов.

Формат выходных данных

Выведите одну строку – расшифрованное сообщение.

Пример

Входные данные rvt!Pie!

Выходные данные Privet!!

[Mad_Cat]

2ТС оптимизируйте

var s:string;
buf:string;
n,i:integer;
begin
s:='rvt!Pie!';
buf:='';
n:=length(s);
i:=0;
while n<>0 do
begin
case i of 
0:begin buf:=buf+s[n div 2+1];delete(s,n div 2+1,1);end;
1:begin buf:=buf+s[1];delete(s,1,1);end;
end;
i:=-abs(i)+1;
n:=n-1;
end;
writeln(buf);
end.

[СергейАстрахань]

Огромное СПАСИБО! Есть еще 2 задачки, если не трудно, решите плиз, буду очень благодарен!