где в коде ошибка дельфи 7

Question

begin 
 if sedit1.Text = '79516036739' then 
 slistbox1.Items.Add('áàíåð ñêîðî ñíèìèòüñÿ') 
 else 
 slistbox1.Items.add('Íå âåðíûé ïàðîëü'); 
 i:=i+1; 
 slabel5.Caption:=intTostr(i); 
 application.ProcessMessages; 
end 
 else тут ошибка почему 
 if a<>10 then 
 showmessage ('dwda') 
end;

Марина Петракова · Accepted Answer

begin 
if sedit1.Text = '79516036739' then 
slistbox1.Items.Add('áàíåð ñêîðî ñíèìèòüñÿ') 
else 
slistbox1.Items.add('Íå âåðíûé ïàðîëü'); 
i:=i+1; 
slabel5.Caption:=intTostr(i); 
application.ProcessMessages; 
end // ГДЕ BEGIN, КОТОРЫЙ СООТВЕТСТВУЕТ ЭТОМУ END'У? ! Я НЕ ЗНАЮ, ЧТО ДОЛЖНА ДЕЛАТЬ ЭТА ПРОГА, ПОЭТОМУ УСТАНОВИТЕ СООТВЕТСТВИЕ САМИ! ПОПРОБУЙТЕ ДЕЛАТЬ КАЖДЫЙ БЛОК IF С ИСПОЛЬЗОВАНИЕМ BEGIN, И ВСЁ ПРОЯСНИТСЯ :))))) 
else тут ошибка почему 
if a<>10 then 
showmessage ('dwda') 
end;