function Acq(W:string):string;
var i:integer; z,k:string; c:char;
begin
k := ' +.=;';
z := '';
for i:=1 to length(w) do begin
c := W[i];
if pos(c,k)=0 then
begin
z := z + C;
continue;
end;
if c=' '
then z := z + '#'
else z := z + '#' + C;
end;
result := z;
end;