Co zrobiłem źle? Totalny newbie z programowaniem w pascalu.

[x_x_Sniper_x_x]

Cześć i czołem.
Chciałem napisać prosty program który po wpisaniu mu liczby punktów (od 0 do 100) wyświetli jaką ocenę się dostanie.
Wywala mi błąd że zamiast ";" otrzymuje "else"

Co robię źle? 

Program oceny;
        uses crt;

var punkty:real;
const           a='niedostateczny';
                b='dopuszczajĄcy'  ;
                c='dostateczny'     ;
                d='dobry'            ;
                e='bardzo dobry'      ;
                f='celujĄcy'           ;


    Begin
        CLRSCR;
        Writeln('JakĄ ilo† punkt˘w uzyskae(a) ? ');
        Readln(punkty);
                If (punkty <0) and (punkty >100) then
                        Writeln('BĄd! nie moge uzyska† mniej niľ 0 punkt˘w lub wi©cej niľ 100!');
                         else
                If (punkty >=0) and (punkty <25) then
                        Writeln('Twoja ocena to ',a);
                        else
                If (punkty >=25) and (punkty <45) then
                        Writeln('Twoja ocena to ',;
                        else
                If (punkty >=45) and (punkty <65) then
                        Writeln('Twoja ocena to ',c);
                        else
                If (punkty >=65) and (punkty <80) then
                        Writeln('Twoja ocena to ',d);
                        else
                If (punkty >=80) and (punkty <95) then
                        Writeln('Twoja ocena to ',e);
                        else
                If (punkty >=95) and (punkty <101) then
                        Writeln('Twoja ocena to ',f);
                        readkey;

end.

[ArcheR.]

Program oceny;
        uses crt;
var punkty:real;
const           a='niedostateczny';
                b='dopuszczajĄcy'  ;
                c='dostateczny'     ;
                d='dobry'            ;
                e='bardzo dobry'      ;
                f='celujĄcy'           ;
    Begin
        CLRSCR;
        Writeln('JakĄ ilo† punkt˘w uzyskae(a) ? ');
        Readln(punkty);
                If (punkty <0) and (punkty >100) then
                        Writeln('BĄd! nie moge uzyska† mniej niľ 0 punkt˘w lub wi©cej niľ 100!');
                If (punkty >=0) and (punkty <25) then
                        Writeln('Twoja ocena to ',a);
                If (punkty >=25) and (punkty <45) then
                        Writeln('Twoja ocena to ',;
                If (punkty >=45) and (punkty <65) then
                        Writeln('Twoja ocena to ',c);
                If (punkty >=65) and (punkty <80) then
                        Writeln('Twoja ocena to ',d);
                If (punkty >=80) and (punkty <95) then
                        Writeln('Twoja ocena to ',e);
                If (punkty >=95) and (punkty <101) then
                        Writeln('Twoja ocena to ',f);
                        readkey;
end.

Nie znam pascala, ale naprawiłem to .

[x_x_Sniper_x_x]

Dzięki
Ja też dopiero zaczynam się uczyć programowania i myślałem że else mogę sobie przetlumaczyć jako "lub"/"w przeciwnym wypadku".
 

[ArcheR.]

Dzięki

Ja też dopiero zaczynam się uczyć programowania i myślałem że else mogę sobie przetlumaczyć jako "lub"/"w przeciwnym wypadku".

 

Else oznacza ≈"w przeciwnym wypadku" itp., ale ty źle tego użyłeś.