procedure TForm1.Button1Click(Sender: TObject);
var 
 x,y:integer;
 st:string;
begin
 st:=Edit1.text;
 y:=0;
 for x:=1 to length(st) do
   if st[x]='0' then inc(y);
 if y>(length(st) div 2) then y:=0 else y:=1;
 memo1.Lines.Add('введено   :  '+st);
 memo1.lines.Add('получаем :  '+intostr(y));
 Edit1.Text:=''
end;