[stil]

Код:

var
s,s1:string;
dl,d2,k,j:integer;
begin
s1:='';
s:=memo1.lines.text;
j:=pos(' ',s);
while j>0 do begin
  delete(s, j div 2, 1);
  s1:=s1+copy(s,1,j);
  delete(s,1,j);
  j:=pos(' ',s);
end;
  j:=Length(s);
  delete(s, j div 2, 1);
  s1:=s1+copy(s,1,j);
  memo2.lines.add(s1);
end;