procedure Obrab(var x:string);
var i,k:integer;
    s:string;
begin
  k:=length(x);
  x:=x+' ';
  for i:=1 to k do
  if x[i] in separator then
     x[i]:=' ';
  while x[1]=' ' do
        delete(x,1,1);
  while pos('  ',x)<>0 do
        delete(x,pos('  ',x),1);
end;