хотел с помощью массива,но не получается с интервалом от 2ух до 5,что делать?Помогите пожалуйста.

[SSS_sergey_SSS]

Предложите пользователю ввести 10 оценок, полученные группой студентов на экзамене.
Проверьте, что оценки находятся в интервале от 2 до 5.
Выведите итого подобного вида: «Отлично: 2|Хорошо: 5|Удовлетворительно: 3|Неудовлетворительно: -|, вместо символа «|» - переход на новую строку.-------------------------------------------------помогите решить ,хотел с помощью массива,но не получается с интервалом от 2ух до 5,что делать?Помогите пожалуйста.
вот исходник:
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var a:array[1..10] of integer; i,b,g,u,o:integer;

begin
b:=0;
u:=0;
g:=0;
o:=0;
for i:=1 to 10 do
begin
writeln('wwedi ',i,' ocenku');
readln (a[i]);
end;
for i:=1 to 10 do
begin
if (a[i] >= 2) and (a[i] <= 5) then
begin
if a[i]=2 then b:=b+1;
if a[i]=3 then u:=u+1;
if a[i]=4 then g:=g+1;
if a[i]=5 then o:=o+1;
end;
end;
writeln (b,'ploho ',u,'udowl ',g,'horosho ',o,'otl');
readln;
end.

[fbus]

почему бы не завести просто 4 переменные (количество двоек, троек...)
просто при вводе оценки считай их, а потом просто выведи, и никаких массивов не надо, если я правильно понял задание

[SSS_sergey_SSS]

извини,"азкай" не пользуюсь,есть только агент,я пробовал,только там какая-то другая проблема возникала,не помню,а так не получится?а если массив брать от 2 до 5?