[stil]

Код:

var
s,s1:string;
dl,d2,k,j, i:integer;
begin
s1:='';
for i:=0 to memo1.Lines.Count-1 do begin
  s:=memo1.lines[i];
  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);
    s1:='';
end;
end;