Помогите решить задачи

[DenSuper007x]

Помогите решить задачи, сижу на зачёте,
Выставленные в журнале оценки результатов контрольной работы по информатике образуют массив X(20). Написать прогу определения числа отличных,числа хороших,числа удовлетворительных и неудовлетворительных оценок.

[puporev]

var a:array[1..20]of byte;
     i.dv,tr ch,pt:byte;
begin
for i:=1 to 20 do
    begin
      a[i]:=random(4)+2;
      write(a[i],' ');
    end;
dv:=0;tr:=0;ch:=0;pt:=0;
for i:=1 to 20 do
    begin
     if a[i]=2 then dv:=dv+1
     else if a[i]=3 then tr:=tr+1
     else if a[i]=4 then ch:=ch+1
     else if a[i]=5 then pt:=pt+1;
   end;
writeln;
write('2=',dv,'  3=',tr,  '4=,ch,  '5=',pt);
readln
end.

[type_Oleg]

Вместо
begin
if a[i]=2 then dv:=dv+1
else if a[i]=3 then tr:=tr+1
else if a[i]=4 then ch:=ch+1
else if a[i]=5 then pt:=pt+1;
end;
изящнее будет

case a[i] of
2: dv:=dv+1;
3: tr:=tr+1;
4: ch:=ch+1;
5: pt:=pt+1
end;