Сделать прогу в паска-ле, которая будет ставить оценки выпускникам по результатам

program grade;

var  

  a : integer;

begin

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

 read(a);

 case a of

   8..14 : writeln('оценка 3');

   15..21 : writeln('оценка 4')

 else  

   writeln ('Введите значения из спектра 8-21');

 end;

end.

var a:integer;

begin

write ('Введите количество баллов: ');

read (a);

if (agt;=8) and (alt;=14) then begin

writeln ('Оценка 3');

end;

if (agt;=15) and (alt;=21) then begin

writeln ('Оценка 4');

end;

end.