Почему у меня программа не хочет работать? Ошибка: Встречено ';', а ожидалось ')',там где readln(s);,но в чем ошибка?

Program zad5;

Var

s:integer;

begin;

writeln('введите количество баллов’);

readln(s);

case s of

'0..25': writeln('не допущен к сессии’);

'26..55': writeln('не уд. ’);

'56..70': writeln('удов’);

'71..85': writeln('хор’);

'86..100': writeln('отл’);

end;

end.