Совершенно запуталась с операторными скобками (BEGIN и END). Помогите разобраться

program echo(input,output);
var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o: real;
 label M1,  M2,  M3, M4;
BEGIN
writeln ('1.Есть ли волосяной покров?');
readln(a);
    if a=1 then 
      M1: writeln ('3.Питается мясом?');
      readln (c);
          if c=1 then 
            M3: writeln ('7.окрас желто-коричневый и пигмент темные полосы?');
            readln(g);
                if g=1 then
                  writeln ('16.Тигр!')
                else 
                writeln ('8.окрас желто-коричневый и пигмент темные пятна?');
                readln (h); 
                  if h=1 then  
                  writeln ('17.Гепард!')
                  else 
                  writeln ('18.млекопитающее, хищник. подробнее не удалось') 
          else
          writeln ('4.Есть ли острые зубы и когти?');
          readln (d);
          if d=1 then goto M3;
            else
            writeln ('5.Есть ли копыта?');
            readln (e);
              if e=1 then 
              M4: writeln ('9.Пигмент черные полосы?');
              readln (i);
                if i=1 then
                writeln ('19.Зёбра!');
                else
                writeln ('10.Длинные шея и ноги?');
                readln (j);
                  if j=1 then 
                  writeln ('20. Жираф!');
                  else  
                  writeln ('21.Парнокопытное млекопитающие. подробнее не удалось!');
                 
                  
                    else
                        writeln ('6.Жует ли жвачку?');
                        readln (f);
                        if f=1 then goto M4;
                        else 
                                writeln ('22.Mлекопитающие. подробнее не удалось!');
    else      
    writeln ('2. Есть ли молоко?');
      readln (b);
      if b=1 then goto M1;
        else 
        writeln ('11. Есть ли перья?');
        readln (k);
        if k=1 then
          M2: writeln ('13.Умеет ли хорошо летать?');
          readln (m);
          if m=1 then 
          writeln ('23.Альбатрос!');
            else
            writeln ('14.Умеет ли быстро бегать?');
            readln (n);
            if n=1 then 
            writeln ('24.Страус!');
              else 
              writeln ('15.Окрас черно-белый и живет в антарктиде?');
              readln (o);
                if o=1 then 
                writeln ('25.Пингвин!');
                  else
                  writeln ('26. Птица. подробнее определить не удалось!');
                  
        else
        writeln ('12.Есть ли крылья?');
        readln (l); 
          if l=1 then goto M2; 
          else 
          writeln ('27.Классифицировать не удалось!(((');
end.

program echo(input,output);
 
function ask(s: string): boolean;
var a: integer;
begin
  Write(s,' '); ReadLn(a); ask:=a=1;
end;
 
label M1,  M2,  M3, M4;
 
begin
  if ask(' 1. Есть ли волосяной покров?') then
M1:
    if ask(' 3. Питается мясом?') then
M3:
      if ask(' 7. Окрас желто-коричневый и пигмент темные полосы?') then
        writeln ('16. Тигр!')
      else {7}
        if ask(' 8. Окрас желто-коричневый и пигмент темные пятна?') then
          writeln ('17. Гепард!')
        else {8}
          writeln ('18. Млекопитающее, хищник. Подробнее не удалось') 
    else {3}
      if ask(' 4. Есть ли острые зубы и когти?') then goto M3
      else {4}
        if ask(' 5. Есть ли копыта?') then
M4: 
          if ask(' 9. Пигмент черные полосы?') then
            writeln ('19. Зёбра!')
          else {9}
            if ask('10. Длинные шея и ноги?') then
              writeln ('20. Жираф!')
            else {10}
              writeln ('21. Парнокопытное млекопитающие. Подробнее не удалось!')
        else {5}
          if ask(' 6. Жует ли жвачку?') then goto M4
          else {6}
            writeln ('22. Mлекопитающие. подробнее не удалось!')
  else {1}
    if ask(' 2. Есть ли молоко?') then goto M1
    else {2}
      if ask('11. Есть ли перья?') then
M2:
        if ask('13. Умеет ли хорошо летать?') then 
          writeln ('23. Альбатрос!')
        else {13}
          if ask('14. Умеет ли быстро бегать?') then 
            writeln('24. Страус!')
          else {14}
            if ask('15. Окрас черно-белый и живет в антарктиде?') then 
              writeln ('25. Пингвин!')
            else {15}
              writeln ('26. Птица. подробнее определить не удалось!')
      else {11}
        if ask('12. Есть ли крылья?') then goto M2
        else {12}
          writeln ('27. Классифицировать не удалось!(((');
end.

function ask(s: string): boolean;
var a: char;
begin
  Write(s,' '); ReadLn(a); ask:=a in ['1','y','Y','д','Д'];
end;