Переробить процедуру, спасибо заранее!!!!

[mix_vasja]

В етом фрагменте невиконуется первое условие!!! if st<5 then
dp:=sd*0.6 как зделать чтоби оно работало???? begin end пробувал ставить!!!!

1. Procedure Likarnyani;
2. var
3. rd,zz,kr,sd,st,dp:real;
4. begin
5. window(14,4,70,21);
6. textcolor(14);
7. textbackground(1);
8. clrscr;
9. textcolor(14);
10. gotoxy(5,3);
11. write('Vka}|{it k-st robochux dniv hvorobu ');
12. readln(rd);
13. gotoxy(5,4);
14. write('Vka}|{it symy zarplatu za 2 poper misjaci ');
15. readln(zz);
16. gotoxy(5,5);
17. write('Vka}|{it kilkist robochux dniv cux misjsciv ');
18. readln(kr);
19. sd:=zz/kr;
20. gotoxy(13,7);
21. textcolor(2);
22. writeln('Serednjodennuj zarobitok = ',sd:5:2);
23. gotoxy(18,9);
24. textcolor(14);
25. writeln('Vka}|{it sta}|{ robotu');
26. gotoxy(27,10);
27. readln(st);
28. if st<5 then
29. dp:=sd*0.6;
30. if st<8 then
31. dp:=sd*0.8 else
32. dp:=sd;
33. gotoxy(15,12);
34. textcolor(2);
35. writeln('Serednjodenna dopomoga = ',dp:5:2);
36. lk:=dp*rd;
37. gotoxy(18,15);
38. textcolor(2);
39. writeln('Syma likarnjanux = ',lk:5:2);
40. textcolor(2);
41. gotoxy(22,17);
42. textbackground(7);
43. writeln('Natusnit klavishy');
44. readkey;
45. end;