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

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;