Potřebuji poradit – Pascal – Fórum – Programujte.com

Chtěl bych se zeptat kde mám chybu v tomhle zápisu.Dělá mi to tu chybu, že jak mám tu poslední část else a aby to napsalo Spatne zadany udaj, tak se mi tam tenhle řádek objeví vždy ne jenom, když někdo splete číslo.

 if (cislo = 1) then
          begin
           write ('Pohlavi: ');
           readln (pohlavi);

                    if (pohlavi=muz) then
                      begin
                        tuk := (0.715 * bmi - 12.1) * (vyska/100 * vyska/100);
                        writeln('Tvuj obsah tuku v tele je ', tuk:0:2,'%');
                        writeln ('Obvykle zdravotni rizika zacinaji pri vice, jak 25% tuku v tele.') ;

                        end
                        else
                        begin
                        tuk := (0.713 * bmi - 9.74) * (vyska/100 * vyska/100);
                        writeln('Tvuj obsah tuku v tele je', tuk:0:2,'%');
                        writeln ('Obvykle zdravotni rizika zacinaji pri vice, jak 32% tuku v tele. ') ;

                        end

          end;
          if (cislo = 2) then
          begin
           writeln;
          end;
        else
          begin
          writeln('Spatne zadany udaj');
          end;                         

Děkuji

#1 Tomáš
Respektive, když zmáčknu 2 tak to funguje, ale když zmáčknu 1 tak se všechno zobrazí správně, ale na konci je tam i ta hláška Spatne zadany udaj a to nevím proč.

#2 Tomáš
Tak už jsem na to přišel.

a co potřebujes poradit

#1 Tomáš
sex

#4 sarlotka
Už nic mě to nefungovalo, jak jsme chtěl, ale jsem na to přišel. Mě tam chybělo else před if.