пишу из учебника,но паскаль выдает ошибку. (Program1.pas(13) : Встречено ':=', а ожидалось ';')

Program diktant;
var a: array[1..20] of integer;
i,a,b,c,d: integer;
begin
for i:=1 to 20 do
begin
write ('Введите оценку ',i,'-го ученика: ');
readln (a[i]);
end;
for i:=1 to 20 do
begin
case a[i] of;
a:=a+1;
b:=b+1;
c:=c+1;
d:=d+1;
end;
end;
writeln ('Количество учеников, получивших 2, равно ',a,', 3 - ',b,', 4 - ',c,', 5 - ',d);
end.