Работа со строками

[alex_fcsm]

uses crt;
var s:string;
i:integer;
BEGIN
clrscr;
readln(s);
for i:=length(s) downto 1 do
  if s[i]='*' then delete(s,i,1);
i:=1;
while i<=length(s) do begin
 Insert(s[i],s,i+1);
 i:=i+2;
end;
writeln(s);
readkey;
END.

[capta1n]

я уже все что хотел сказать написал: если величина length(s) меньше i+i-1 это значит он полез в неизведанную область - нет в этой области памяти и мысли о строке, а если говорить нормально, то там нет части строки - вся строка от 1 до length(s) и все - остального нет

[__STDC__]

Так кто спорит? Это по-моему и так ясно... Результат в отладчике для него был.. чтобы наглядней...

[Tkirill]

uses crt;
var
s:string;
i:integer;
begin
clrscr;
write(' Input string -> ');
readln(s);
while pos('*',s)<>0 do
delete(s,pos('*',s),1);
i:=1;
repeat
insert(s[i],s,i);
i:=i+2;
until i>length(s);
writeln(s);
readln;
end.