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

array значит

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