Составить программу, позволяющую получить словесное описание школьных отметок (1 — плохо, 2 — неудовлетворительно, 3 — удовлетворительно

program OCEHKA;
uses crt;
var a,b:integer;
fign:boolean;
s:string;
begin
fign:=false;
write('Введите оценку  -  ');
ReadLn (a);
b:=a;
case b of
1:s:='Плохо';
2:s:='Неудовлетворительно';
3:s:='Удовлетворительно';
4:s:='Хорошо';
5:s:='Отлично';
end;
WriteLn (s);
ReadLn;