[snr93]

Добрый день всем. Никак не могу понять почему Delphi выкидывает сообщение
[Error] Unit1.pas(28): Label declared and referenced, but not set: 'yzi5'
Хотя метка в коде есть. Да, я знаю что использование GoTo не желательно, но я не знаю что тут можно еще применить.
Вот кусок кода

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

//íà÷èíàåì àíàëèç ðåçóëüòàòîâ if c1>=5 then begin GoTo yzi5; end else  ShowMessage('Íåèçâåñòíîå çàáîëåâàíèå'); end; if c2>=5 then begin GoTo yzi6; end else begin  ShowMessage('Íåèçâåñòíîå çàáîëåâàíèå'); end; //çàêîí÷èëè àíàëèç ðåçóëüòàòîâ   //íà÷àëî ÓÇÈ ïî÷åê 5 áëîê yzi5: begin d1:=2;     if MessageDlg('Åñòü ëè ðàñøèðåíèå ëîõàíîê ïî÷åê?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    d1:=d1+1;     if MessageDlg('Åñòü ëè êàðáóíêóë ïî÷êè?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    d1:=d1+1;     if MessageDlg('Åñòü ëè ïàðàíåðôàëüíûé àáñöåñ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    d1:=d1+1; //çàêîí÷èëè ÓÇÈ ïî÷åê 5 áëîê

Так же весь код(сорри не знаю как спрятать под спойлер)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     Label1: TLabel;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   b1,b2,c1,c2,d1,d2,e1: integer; implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); label mocha,pieloefrit,glomerylonefrit,yzi5,yzi6,rengen;   //îáúÿâëÿåì ïåðåõîäû ê òî÷êàì //ïåðåáèðàåì îáùèå âîïðîñû begin     if MessageDlg('Åñòü áîëè â ïîÿñíèöå?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    b1:=1;    b2:=1;     if MessageDlg('Åñòü ëè ïîâûøåííîå ÀÄ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    b1:=b1+1;    b2:=b2+1;     if MessageDlg('Åñòü ëè áîëè â îáëàñòè æèâîòà?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    b1:=b1+1;     if MessageDlg('Åñòü ëè îòåêè êîíå÷íîñòåé?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    b1:=b1+1;    b2:=b2+1;     if MessageDlg('Åñòü ëè îáùàÿ ñëàáîñòü?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    b1:=b1+1;    b2:=b2+1;     if MessageDlg('Åñòü ëè òîøíîòà?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    b1:=b1+1;    b2:=b2+1;     if MessageDlg('Åñòü ëè íîñîâûå êðîâîòå÷åíèÿ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    b2:=b2+1;     if MessageDlg('Åñòü ëè ïîâûøåííàÿ ñóõîñòü êîæè?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    b2:=b2+1; //çàêîí÷èëè ïåðåáîð îáùèõ âîïðîñîâ   //äåëàåì àíàëèç ïîñëå îòâåòîâ íà îáùèå âîïðîñû if b1>=4 then begin  GoTo mocha;  end  else  if b2>=4 then begin  GoTo mocha;  end  else  begin  ShowMessage('Âñå â íîðìå'); end;  //çàêîí÷èëè àíàëèç îòâåòîâ íà îáùèå âîïðîñû    //íà÷èíàåì ïåðåáîð âîïðîñîâ î ìî÷å mocha: begin c1:=1; c2:=1;     if MessageDlg('Ïîâûøåííûé óðîâåíü ëåéêîöèòîâ â ìî÷å?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    c1:=c1+1;    c2:=c2+1;     if MessageDlg('Ïîâûøåí óðîâåíü áåëêà â ìî÷å?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    c1:=c1+1;    c2:=c2+1;     if MessageDlg('Åñòü ëè áàêòåðèè â ìî÷å?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    c1:=c1+1;     if MessageDlg('Åñòü ëè â ìî÷å ýðèòðîöèòû?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    c2:=c2+1; end; //çàêîí÷èëè ïåðåáîð âîïðîñîâ î ìî÷å   //íà÷èíàåì ïåðåáîð âîïðîñîâ î êðîâè begin     if MessageDlg('Ïîâûøåííûé óðîâåíü ëåéêîöèòîâ â êðîâè?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    c1:=c1+1;     if MessageDlg('Ïîâûøåí óðîâåíü áåëêà â êðîâè?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    c2:=c2+1; end; //çàêîí÷èëè ïåðåáîð âîïðîñîâ î êðîâè   //íà÷èíàåì àíàëèç ðåçóëüòàòîâ if c1>=5 then begin GoTo yzi5; end else  ShowMessage('Íåèçâåñòíîå çàáîëåâàíèå'); end; if c2>=5 then begin GoTo yzi6; end else begin  ShowMessage('Íåèçâåñòíîå çàáîëåâàíèå'); end; //çàêîí÷èëè àíàëèç ðåçóëüòàòîâ   //íà÷àëî ÓÇÈ ïî÷åê 5 áëîê yzi5: begin d1:=2;     if MessageDlg('Åñòü ëè ðàñøèðåíèå ëîõàíîê ïî÷åê?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    d1:=d1+1;     if MessageDlg('Åñòü ëè êàðáóíêóë ïî÷êè?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    d1:=d1+1;     if MessageDlg('Åñòü ëè ïàðàíåðôàëüíûé àáñöåñ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    d1:=d1+1; //çàêîí÷èëè ÓÇÈ ïî÷åê 5 áëîê   //íà÷àëî àíàëèçà ðåçóëüòàòîâ if d1>=5 then   if MessageDlg('Îáíàðóæåí ïèåëîíåôðèò. Ïîêàçàòü èíôîðìàöèþ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then   ShowMessage('?'); end else begin  ShowMessage('?');  end; //êîíåö àíàëèçà ðåçóëüòàòîâ   //íà÷àëî ðåíãåíà rengen: e1:=3;     if MessageDlg('Åñòü ëè ñäàâëåíèå ìî÷åâûõ ïóòåé?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    e1:=e1+1;     if MessageDlg('Åñòü ëè íàðóøåíèå ÷àøå÷íî-ëîõàíî÷íîé ñèñòåìû?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    e1:=e1+1;     if MessageDlg('Åñòü ëè îïóõîëü?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    e1:=e1+1;     if MessageDlg('Åñòü ëè êàìåíü?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    e1:=e1+1; //êîíåö ðåíãåíà   //íà÷èíàåì àíàëèç ðåçóëüòàòîâ if e1>=5 then  ShowMessage('Íåèçâåñòíîå çàáîëåâàíèå'); end else begin  ShowMessage('Íåèçâåñòíîå çàáîëåâàíèå'); //çàêîí÷èëè àíàëèç ðåçóëüòàòîâ   //íà÷àëî ÓÇÈ ïî÷åê 6 áëîê yzi6: d2:=2;     if MessageDlg('Åñòü ëè óïëîòíåíèå òêàíåé ïî÷êè?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    d2:=d2+2;     if MessageDlg('Åñòü ëè óìåíüøåíèå ðàçìåðîâ ïî÷êè?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then    d2:=d2+3; //çàêîí÷èëè ÓÇÈ ïî÷åê 6 áëîê   //íà÷èíàåì àíàëèç ðåçóëüòàòîâ   //çàêîí÷èëè àíàëèç ðåçóëüòàòîâ end;     end;   end.