Anonymní profil Eva – Programujte.com

Chtěla bych to vyřešit tak, že na vstupu se zadají dva řetězce, které budou představovat dvě binární čísla. Ty řetězce budu procházet od konce. Pokud bude poslední ''znak'' (1.čísla) jedna a (2.čísla) také jedna, tak do výsledné proměnné uložím na poslední místo nulu a pamatuju si jedničku. Pak pokračuju podle pravidel, ale jde mi o to, jak to správně zapsat. 

delka:=Ord(bin1[0]); (bin1>bin2)
      for I:=5 downto 1 do begin
                                      if (bin1[delka] = 1) and (bin2[delka] = 1) then begin
                                                                                      vysledek[delka] :=0;
                                                                                      carry := 1;
                                                                                      end;