Помогите пожалуйста..Паскаль, мне нужно, чтоб вышла одна оценка в выводе, а

Помогите пожалуйста..Паскаль, мне необходимо, чтоб вышла одна оценка в выводе, а выходят сходу 3 при этом одна какая то из 4 не выходит к этим 3 ...как это исправить, что бы вообщем одна оценка выходила? k-кол-во баллов если, что и аспекты такие 18-20 баллов-оценка 5; 14-17 баллов 4; 10-14баллов- оценка 3 и меньше 10 баллов 2.Вообще смотрится все так:
If kgt;17 then
Begin
Writeln('ваша оценка 5. Молодец!');
End;
If (kgt;13) or (klt;18) then
Begin
Writeln('ваша оценка 4.');
End;
Begin
If(kgt;9) or (klt;14) then
Writeln('ваша оценка 3.');
End;
If klt;10 then
Begin
Writeln('ваша оценка 2.');
End;