Введите с клавиатуры возраст человека и выведите на экран сообщение о его статусе (ребенок, ученик или студент). на паскале, , + блок-схема

Program mq;
var 
age:integer; 
a:array[1..3] of String = ('ребёнок','ученик','студент');
begin
Read(age);
case age of
1..6:WriteLn(a[1]);
7..18:WriteLn(a[2]);
19..25:WriteLn(a[3]);
end;
end.
С блок схемой затруднения, сорян.